Help for this page

Select Code to Download


  1. or download this
    my $pipe;
eval {
...
    die unless ($@ eq "alarm\n"); # non-alarm failure.
    die "timeout on pipe open";
}
  2. or download this
    use strict;
use warnings;
...
    # This silly example just prints a period each poll interval.
    print STDERR ".";
}
  3. or download this
    use strict;
use warnings;
...

close($pipe)
    or die "Closing pipe failed: $!";