$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;