use DBI;
use Net::MySQL;
  
my $mysql = Net::MySQL->new(
  hostname => '127.0.0.1:8889',   # Default use UNIX socket
  database => 'inventory',
  user     => 'root',
  password => 'root'
);
$mysql->query(q{select * from orders});
  
if ($mysql->has_selected_record) {
  print "found in DB...\n";
}