sub db_err { my ($pmsg, $psql, $perrnum, $perrstr) = @_; print "

There was a problem: $pmsg.

\n"; print "

Attempted command: $psql

\n"; print "

Error: $perrnum - $perrstr

\n"; }