gistfile1.txt

use DBI;
use Data::Dumper;

my $dbh = DBI->connect(
    "dbi:mysql:database=sandbox",
    '',
    '',
    {AutoInactiveDestroy => 1, RaiseError => 1}
);

my $pid = fork;
die('fail fork') unless defined $pid;

if ( $pid ) {
    wait;
    say Dumper [$dbh->selectrow_array('select id from sandbox limit 1')];
}
else {
    say Dumper [$dbh->selectrow_array('select id from sandbox limit 1')];
}