copy and move in perl

use File::Copy;
copy("file1","file2") or die "Copy failed: $!";
copy("Copy.pm",\*STDOUT);
move("/dev1/fileA","/dev2/fileB");



This was refered from http://perldoc.perl.org/File/Copy.html