Help for this page

Select Code to Download

Select or download this

            my %inpinf = ();
            while (my $inpbuf = <INPFIL>)
...
        [foo]
        [bar]

Select or download this
```
#!/usr/bin/perl

...
exit;

__END__
```