Perl would implicitly close/disconnect the database handle on exit (or, more accurately, when the handle goes out of scope, which would be prior to program exit if it were lexical to a block) and produce the same errors. The messages would, IIRC, be worded a little differently, but that's pretty much all that would change.