my $func = $dbh->prepare( 
      ...
   }) or die DBI->errstr;
...
    $func->execute or die DBI->errstr;