here is the code

#!/usr/bin/perl -w

   use Mysql;
   $Host = "Localhost";
   $Database = "test";
   $User = "user";
   $Passwd = "";

   $dbh = Mysql->connect($Host, $Database, $User, $Passwd);
   $sql_statement = "select * from TEST";
   $sth = $dbh->query($sql_statement);
   if (!defined $sth) { warn($dbh->errmsg); }
   while ( @row = $sth->fetchrow_array ) {
        print "$row[0]\t$row[1]\n";
   }
   exit 0;
[download]