use File::Copy;

my $source_file = 'somefile';
my $dest_file = 'somefile';

copy ($source_file, $dest_file) || die $!;