open(my $src,  '<', $FileName)                   or die("ack - $!");
open(my $dest, '>', '/somecomputer/folder/here') or die("ack - $!");
binmode($src); binmode($dest);
print $dest $_ while <$src>;
[download]

_________
broquaint