perl -e 'for ($i = 1; $i <= 560; $i ++) {print "$i\n";}'

##</code><code>##

#!/usr/bin/perl -w

use strict;

my($line) = "";
my($counter) = 0;

# print every nth line of STDIN, where n is defined as:
my($countTo) = 56;

while ($line = <STDIN>)
{
  $counter += 1;
  if($counter == $countTo)
  {
    print $line;
    $counter = 0;
  }
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

#
# script to remove the first eight lines after lines of a page 56
# lines long. 
#

my($line) = "";
my($counter) = 0;
my ($boolean) = 0;

# print every nth line of STDIN, where n is defined as:
my($countTo) = 56;
my($secondCounter) = 8;

while ($line = <STDIN>)
{
  $counter += 1;

  if($counter > $secondCounter)
  {
    print $line;
  }

  if($counter == $countTo)
  {
    $counter = 0;
  }
}