Good advice. But you might want to replace:

$DBH = DBI->connect( $DSN, $USER, $PASS, { RaiserError => 1} );

With this:

$DBH = DBI->connect( $DSN, $USER, $PASS, { RaiseError => 1} );

;)