diff --git a/tmp.pl b/tmp.pl
deleted file mode 100644
index 575a7c3..0000000
--- a/tmp.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/use/bin/perl
-
-use strict;
-use warnings;
-
-use DBI;
-
-$ENV{PATH} = "/bin:/usr/sbin";
-
-my $dbh = DBI->connect("DBI:SQLite:blah", "", "");
-SCOPE: {
-  my $sth = $dbh->do(q{DROP TABLE IF EXISTS t1});
-  my $sth2 = $dbh->do(q{CREATE TABLE t1 (c1 text)});
-  my $sth3 = $dbh->prepare(q{INSERT INTO t1 VALUES (?)});
-  for my $i (1 .. 5) {
-    $sth3->execute($i);
-  }
-  $sth3->finish();
-}
-$dbh->disconnect();
-
-my @dbh;
-for my $i (1 .. 2) {
-  print "$i: before connect\n";
-  print `lsof -p $$|grep test`;
-  $dbh[$i] = DBI->connect("DBI:SQLite:blah", "", "");
-  print "$i: after connect\n";
-  print `lsof -p $$|grep test`;
-#  {
-
-    my $sth = $dbh[$i]->prepare(q{SELECT count(1) from t1});
-    $sth->execute();
-    my ($count) = $sth->fetchrow_array;
-    print "count: $count\n";
-    $sth->finish();
-
-#  }
-  $dbh[$i]->disconnect();
-  print "$i: after disconnect\n";
-  print `lsof -p $$|grep test`, "\n";
-}