use Net::FTP;

my $ftp = Net::FTP->new('host', Debug => 0);
$ftp->login('username', 'passwd');