Help for this page

Select Code to Download

Select or download this

  for my $cnt (0 .. 3) {
     my $t=<DATA>;
     print $t;
  }

Select or download this

  for my $cnt (0 .. 3) {
     $_=<DATA>;
     print;
  }