!#/usr/bin/perl

use Net::MySQL;

my $host = 'localhost';
my $db = 'MyDB';
my $db_user = 'mysql';
my $db_password = 'mysql';


my $mySQL = Net::MySQL->new(
    hostname => $host,
    database => $db,
    user     => $db_user,
    password => $db_password);

$mySQL->query("SELECT * FROM Users WHERE CSL = 'hsanche'");

my $record_set = $mySQL->create_record_iterator;
while (my $record = $record_set->each)
{
    print $record->[0]."\n";
}
$mySQL->close;

exit 0;