Select Code to Download

my @last_lines;
while (<>) {
...
   push @last_lines,$_; 
   shift @last_lines if @last_lines > 4;
}

my @last_lines;
while (<>) {
...
      push @last_lines,$_;
   }
}