use Net::FTP;

$ftp = Net::FTP->new("some.host.name", Debug => 0)
   or die "Cannot connect to some.host.name: $@";

$ftp->login("anonymous",'-anonymous@')
   or die "Cannot login ", $ftp->message;