Select Code to Download

# Completely untested :(
use Net::FTP;
...
$ftp->put($filename);
$ftp->quit;
unlink $filename;