use strict;
   use DBH qw(&DBHOBJ);
   my $sth = DBHOBJ()->prepare('select blah from table;');
    $sth->execute();