Select Code to Download

my @previous;
while (<LINE>) {
...
    push @previous, $_;
    shift @previous if @previous > 5;
}