Select Code to Download

#!/usr/bin/perl
use lib 'lib';
use strict;
...
wait; # for our child

done_testing();

use strict;
use warnings;
...
#wait; # for our child, this is handled by fork_ok

#done_testing(); not needed

use strict;
use warnings;
...
$dbh_locked->disconnect;

done_testing();