$utente='Auser';

Win32::NetAdmin::UserGetAttributes("", $utente, $password, $passwordAge, $privilege, $homeDir, $comment, $flags, $scriptPath) or die "UserGetAttributes() failed: $^E";

$ftp = Net::FTP->new("www.aiming.it", Debug => 0);
    $ftp->login("$utente","$password")||die $!;
    $ftp->cwd("aiming");
    
    while ($ftp->dir()){print}
  #OR ?
    @lista=$ftp->dir();
    print "@lista\n";
    $ftp->quit;