Select Code to Download

#!/usr/bin/perl

...
print "Number of lines: $number_of_lines", "\n";
print $lines[$#lines-16], "\n";
print $lines[$#lines], "\n";