Glad it worked. :-) My only question is this covers Tues through the following Tuesday (8 days) and it seems that Tuesdays are getting reported twice. I am not familiar with PAR or pp. But, you could do this with a module that has been a part of the Perl core since the beginning of Perl 5.0. POSIX has the function strftime. It involves a little more code and isn't as simple as Date::Simple but will give the same results and you may not have to package it with your program (as it is part of the Perl core).

#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw/ strftime /;

my @dmy = (localtime)[3 .. 5]; # day-month-year
my $today = strftime "%Y%m%d", (0) x 3, @dmy;

$dmy[0] -= 8; # 8 days before

my $wk_before = strftime "%Y%m%d", (0) x 3, @dmy;

while (<DATA>) {
    print if $_ ge $wk_before && $_ lt $today;
}
[download]