Select Code to Download

#!/usr/bin/perl
use strict;
...
print $dst_fh $_ while <$src_fh>;

unlink($src_fh);