...
my $dbh = DBI->connect($source, $uname, $auth, \%attr);

while(1){

##########################
# accept() code goes here
##########################

 my $cid = fork();
 if (defined $cid){
    if ($cid == 0){
       my $statement = q!a SQL statement goes here!;
       my $sth = $dbh->prepare($statement);
       $rv = $sth->execute;
       
       ... etc ...       

       exit 0;
    }
 }else{
    # handle the error
 }
...