Select Code to Download

sub transfer {
  my $ftp = Net::FTP->new("$ftp_server", Debug=> 0, Hash=> 1) 
...
  }
  $ftp->quit();
}