Select Code to Download

$dir = "/$dir/";
my $strlen = length $dir;
while (<LOG>) {
...
        $report{$url}++;
    }
}