Help for this page

Select Code to Download

Select or download this

#!/opt/local/tools/bin/perl

...
    print "Now enter something: ";
    $response = <>;
    print "You entered -->", $response, "<--\n";

Select or download this

echo Hello | pgm
input line is Hello
Use of uninitialized value $response in print at /userdata/cfor/utils/
+worklib/pgm line 25.
Now enter something: You entered --><--