Select Code to Download

use strict;
use warnings;
...
print "Line1: ", $lines[1], "\n";
print "Line2: ", $lines[2], "\n";