#!/usr/bin/perl

use strict;

use MyDBH;
my $dbh = MyDBH->new();
print "Ping: ", $dbh->ping(), "\n";
my $kidpid = fork();
if ($kidpid == 0)
{
        # child process
        print "Hello world from $$!\n";
        exit;
}

# parent process
print "Spawned child process: $kidpid\n";
print "Ping: ", $dbh->ping(), "\n";