Help for this page

Select Code to Download

Select or download this

my (%foos, %bars);
while( my $line = <DATA> ) {
...
#    warn qq( "$line" is the wrong format.\n );
  }
}

Select or download this

my (%foos, %bars);
while( my $line = <DATA> ) {
...
#    warn qq( "$line" is the wrong format.\n );
  }
}