Help for this page
use DBI; use Net::MySQL; ... if ($mysql->has_selected_record) { print "found in DB...\n"; }
bash-3.2$ perl -T test.pl found in DB...