Select Code to Download

#! perl -slw
use strict;
...
    my $pair = shift( @cache ) . $cache[ 499 ] for 0 .. $#cache - 500;
}
close FH;