Select Code to Download

my $url;
my %stat; # the cache hash where pages and link are accumulated in the
+ir keys
...
$parser->parse($resp->content);
    my $base = $resp->base;

foreach my $link_found( $parser->links ) {
                  next unless $$link_found[1] eq 'src';
...
                    #else is a content and we add this to the cache ha
+sh
                  $stat{cache}{ $absurl }=[]   # will store there leng
+th and time later on
}

if ($render){
    mkdir "$ENV{TEMP}\\_temp_files"||die;
...
    print RENDER $localcont;
   close RENDER;
}

# foreach link's $url
if ($render){
...
           print RENDER $resp->content;
           close RENDER;
}