Select Code to Download

#!/usr/bin/perl -w

...
my $dbh = DBI->connect('dbi:SQLite:dbname=db/sessions.db');
print Dumper(get_session($dbh));
$dbh->disconnect;

DBI::db=HASH(0x87a79c)->disconnect invalidates 1 active statement hand
+le (either destroy statement handles or call finish on them before di
+sconnecting) at ./decode_sessions.pl line 26.
closing dbh with active statement handles at ./decode_sessions.pl line
+ 26.

closing dbh with active statement handles at ./decode_sessions.pl line
+ 26.