my $con_handle = fork();
            if ($con_handle) {
                print "Child Spawned [$con_handle]\n";
}else{
<put in the while(1) block here>
}