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();