Select Code to Download

my $prev;
while (<>) {
...
    print;
    $prev = $ARGV;
}

while (<>) {
    if (not defined $prev or $prev ne $ARGV) {
...
    print "and that's the end of $ARGV\n" if (eof);
    $prev = $ARGV;
}