Select Code to Download

#!/user/bin/perl -w
######################################################################
+#########
# Copyright (c) 2005 Matt Verstraete - All Rights Reserved.           
+        #
...
$dbh -> disconnect();
print qq~\n</body>
</html>~;

DBI::db=HASH(0x18a0ea0)->disconnect invalidates 1 active statement han
+dle (eithe
r destroy statement handles or call finish on them before disconnectin
+g) at D:\crystalreverie.com\www\members\modify.pl line 34.