Help for this page

Select Code to Download

Select or download this

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