How about this:

$sth = $dbh->prepare($statement) or die "Couldn't prepare the query: "
+.$DBI::errstr;

my $rv = $sth->execute($filename,$to,$from,$comments,$uldate,$expdate)
+ or die "Couldn't execute query: ".$DBI::errstr;
[download]

Is using $DBI::errstr just as good?