Select Code to Download

#!/usr/bin/perl -w

...
    $line = 0 if eof;
    print ($_);
}

file1:
header
...
8
9
<p><c>Usage: catskiphead file1 file2 file3

header
1
...
7
8
9