Help for this page

Select Code to Download


  1. or download this
    my @lines = <STDIN>;
  2. or download this
    {
   local($SIG{INT}) = 'IGNORE';
   @lines = <STDIN>;
}
  3. or download this
    #!perl -w
use strict;
...
   print "You entered: @lines\n";
   sleep(1);
}