Select Code to Download

my $dbh = DBI->connect(...);
    some_code_that_forks(); # Perhaps without your knowledge
    # Child process dies, destroying the inherited dbh
    $dbh->do(...); # Breaks because parent $dbh is now broken

[MySQL]
user=username
...
port=3306
db=database_name
table=table_name

#!/usr/bin/perl
use DBI;
...
                   'id' => '2'
                 }
        };