Help for this page

Select Code to Download

Select or download this

while ( my $a =<DATA> ){
  my $b=<DATA>;
...
f
g
h