Help for this page

Select Code to Download


  1. or download this
    sub indextime {
      my ($infile, $outfile) = @_;
      open my $in, '<', $infile or die "Couldn't open $infile for reading:
    + $!";
    ...
      close $in  or die $!;
      close $out or die $!;
    }