my $q;
        $q=<STDIN>;
        print "Received(child $$): $q\n";