###################ftp script



use Net::FTP;

print "Starting the FTP service . . . .\n";

print "Enter the Hostname/ip : ";
chomp($host=<STDIN>);

$ftp = Net::FTP->new("$host", Timeout => 30)
        or die "Could not connect.\n";

print "Enter the User :";
chomp($user=<STDIN>);

print "Enter the Password :";
chomp($pass=<STDIN>);

$ftp->login("$user", "$pass")
        or die "Could not log in.\n";

if(login)
 {
    print "Connected Successfully . . . .\n";
 }

#$ftp->cwd('/home/knils/Desktop')
 #     or die "Can not change Directory";

while(1)
{        
 print "ftp> ";
 chomp($fn=<STDIN>);
 if ($fn eq "bye")
  {
     exit 0;
  }
($fn1,$fn2)= split / +/, $fn; 
$ftp->$fn1("$fn2")
        or print "Invalid Operation\n";
}