eval {
  $sth->execute();
  #fetch rows here
};

if($@)  # if anything bad happened
{
  print STDERR "My clever message here: $@";
  # or even
  #die "Message";
}