Select Code to Download

  my $dbh = DBI->connect("dbi:SQLite:dbname=:memory:","","");

use File::Temp 'tempfile';
my ($fh, $tempname) = tempfile();
close $fh;
END { unlink $tempname };
my $dbh = DBI->connect("dbi:SQLite:dbname=$tempname","","");