Help for this page

Select Code to Download

Select or download this

while ( my $line = <DATA> ) {
  chomp $line;
...

  # do your work
}