if(!$body){ my $class = $self->{BIN}{$url}{class} || 'NotFound'; next if $class eq 'ParsedHTML'; my $classfile = $class || 'NotFound'; $classfile =~ s/::/\//g; require "$classfile.pm"; my $r = $class->new( BIN => $self->{BIN}, URL => $url, FILEDIR => $self->{FILEDIR}, TMPLDIR => $self->{TMPLDIR}, ); $r->data; $body = $r->{BODY}; }