use DBI;
use strict;
use warnings;

my $db = DBI->connect(qq/dbi:SQLite:dbname=test/);

my $pid = fork();

$db->do("DROP TABLE IF EXISTS foo");

waitpid($pid,0);
$db->disconnect;