use Net::FTP;

    $ftp = Net::FTP->new("ftp.eu.uu.net") or die "$@";
    print $ftp->message();
    $ftp->login('anonymous', '-anonymous@') or die $ftp->message();

    # ....