ppm install DBD-mysql

use DBI;
user="root";passwd="root";
dbh="";dbh = DBI->connect("dbi:mysql:database=shit;host=127.0.0.1;port=3306",user,passwd) or die "can't connect to
database ". DBI-errstr;
sth=dbh->prepare("select * from fat");
sth->execute;
while (@recs=sth->fetchrow_array) {
print recs[0].":".recs[1].":".recs[2].":".recs[3]."\n";
}
$dbh->disconnect;