Select Code to Download

use Net::FTP;

...

$ftp->login('username','password') || print $ftp->message;
print $ftp->pwd();

my $hash = {'user' => username,
pass' => 'password',
...

$ftp->login($username, $password) || print $ftp->message;
print $ftp->pwd();