#!c:\perl\bin\perl.exe 


print "content-type:text/html\n\n";

###########################################

use strict;

use DBI;

# Connect to the database
# See footnote 1
my $dbh = DBI->connect('DBI:mysql:mysql', 'root', 'mysql')
    or die "Couldn't open database: $DBI::errstr; stopped";


#####################################

my $log_name = "Ravi";
my $zzz=0;
while ($zzz<=0) {
    chomp($log_name);
    my $sth = $dbh->prepare("SELECT username FROM passwd WHERE 
+login='$log_name'")
       or die "Couldn't prepare: '$DBI::errstr'; stopped";
    $sth->execute() or die "Couldn't execute: '$DBI::errstr'";
    my ($username) = $sth->fetchrow_array();
    print STDOUT "Item: $log_name Username: $username\n";
$zzz=$zzz+1;
#my $zzz=$zzz+1;
}


# Disconnect from the database
$dbh->disconnect();
#############################################