Select Code to Download

#!C:\strawberry\perl\bin\perl.exe
use dbi;
...
        print "incorrect password entered $password[0]**\n";
    }
}

#!C:\strawberry\perl\bin\perl.exe
use dbi;
...
while (my @row = $sth->fetchrow_array) {
    #do whatever you want with this user
}