$SIG{INT} = sub { $dbh->disconnect if $dbh };