use strict;
use DBI;
my $dbh = DBI->connect("DBI:mysql:test;host=1.1.1.120;mysql_read_default_file=$ENV{HOME}/.my.cnf");
my $pid;
$dbh->{'InactiveDestroy'}=1;
if (($pid=fork())==0)
	{ print "Son \n";
	  $dbh->{'InactiveDestroy'}=1;
	  $dbh->disconnect();
	  exit();
	}
    else
	{ $dbh->{'InactiveDestroy'}=0;
	  print "Parent ...\n";
	  $dbh->disconnect();
	}