I have a problem with Net::FTP module :-

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();
[download]

It will run correctly but if i change the program little bit, likewise :-

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

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

Now it'll not going to connect with the FTP server. Anyone having idea or already faced issue, please share your comments.