my$start = 0;# from 1st
my$stop  = 2;# to 3rd line

for( (split /\n/, $header)[$start..$stop] ){ print $_,$/ }
[download]