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