use strict;

open(IN, $ARGV[0]);
binmode(IN);
open(OUT, ">$ARGV[0].cpy");
binmode(OUT);

print OUT <IN>;

close(OUT);
close(IN);