Not using File::Copy? You're wasting your own time. However, if you can't get your system's copy command to work right, you could always just open from one and print to another:

open SRC, $infile;
open DEST, ">$output";
# for handicapped systems
binmode(SRC);
binmode(DEST);

while (<SRC>) {
    print DEST $_;
}

close DEST;
close SRC;
[download]

Not EASY, but when you refuse to use the EASY way (File::Copy), you gotta fill a few lines...

"Falling in love with map, one block at a time." - simeon2000