Select Code to Download

#!/your/path/to/perl


...
my $ftp = new Net::FTP ($host, DEBUG=> 1);
$ftp->login('user', 'password');
$ftp->quit;