eval { $sth=$dbh->prepare("SELECT blurge
                           FROM blurge
                           WHERE blurge=\'$blurge\'") };
my $oops="oops. Look at this:\n$@";
return \$oops if $@;
eval { $sth->execute };
$oops="ooops. Look at this:\$@";
return $oops if $@;