Help for this page

Select Code to Download


  1. or download this
    if (-t STDIN) { 
   # output prompt
}
  2. or download this
    my $old_handle;
if (-t STDOUT) { 
   open (MORE, "| more") or die "No more $!\n";
   $old_handle = select MORE;
}
  3. or download this
    END {
   if (defined $old_handle) {
...
      close MORE;
   }
}