use Net::FTP;

my $ftp = Net::FTP->new("192.168.32.12", Debug => 1) || print $@;

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

##</code><code>##

my $hash = {'user' => username,
pass' => 'password',
};
my $username = $hash->{user};
my $password = $hash->{pass};

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