sub verify {
   my $username=shift || die "missing argument";
   my $passwd=shift   || die "missing argument";
 
   require Net::FTP;
   my $t = new Net::FTP("localhost");
   my $rc=0;
   if ( $t->login($username, $passwd) ) {
      $rc=1;
      }
 
   $t->quit();
   return $rc;
   }