# Or it can be as easy as...
perl -MDBI -wle 'print for DBI->connect("dbi:mysql:foo")->selectrow_array("SELECT * FROM xyz")'