Select Code to Download

my @lines;
my $maxlines = 10;
...
    shift @lines if (@lines > $maxlines);
}
print join("\n", @lines) . "\n";