#!usr/bin/perl 

    $host = "127.0.0.1";
    system("ftp -n $host");
    system("pass root xxxxxx");
    system("quit");