my $dbh = DBI->connect('DBI:mysql:test:localhost', 'me', '');
setsockopt $dbh->{socket}, SOL_SOCKET, &SO_LINGER, pack("II", 1, 10);