Help for this page

Select Code to Download


  1. or download this
    while( my $line = <DATA> ) {
  print $line if $. % 5 == 0 || eof(\*DATA);
...
line nine
line ten
line eleven
  2. or download this
    line five
line ten
line eleven
  3. or download this
    my ($sum, $count) = (0,0);

...
430
992
469