$ md5sum f1 f2
5b683521f9b6b4126005fffdca888ec2  f1
md5sum: f2: No existe el fichero o el directorio

$ perl
open my $in,  '<', 'f1' or die "open1: $!";
open my $out, '>', 'f2' or die "open2: $!";
binmode $in;
binmode $out;
{
  my $buf;
  print $out $buf while read $in, $buf, 1024;
}
close $out;
close $in;
__END__

$ md5sum f1 f2
5b683521f9b6b4126005fffdca888ec2  f1
5b683521f9b6b4126005fffdca888ec2  f2

$ _