@days=(Sun,Mon,Tue,Wed,Thu,Fri,Sat);
@months=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
$time=time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($time);
$year += 1900;
$eday = $mday + 6;

$sdate ="$months[$mon] $mday";
$edate="$months[$mon] $eday";

#-- Output -----------------------------------

print header();
print start_html();

print "\n<p>The following files contain content that will expire during $sdate - $edate:</p>\n<ul>\n";


find( sub
       {
        return if($_ =~ /^\./);
        return unless($_ =~ /\.(cfm|htm|cfml|html|txt)/i);
        stat $File::Find::name;
        return if -d;
        return unless -r;
		
        open(FILE, "< $File::Find::name") or return;
        my $string = <FILE>;
        close (FILE);
		return unless ($string =~ /\Q$edate/i);
        my $page_title = $_;
        if ($string =~ /<title>(.*?)<\/title>/is)
        {
            $page_title = $1;
        }
		my $foundFile = $File::Find::name;
        print "<li><a href=\"$foundFile\">$File::Find::name</a></li>\n";
	},
    '/inetpub/mysite');