sub my_child_work{
                my $x = shift;
                print "child x $x ";
                sleep 1;
                exit;
}