package Task::WWW; use WWW::Mechanize; sub perform_task { my $self = shift; # set up proxy, ... my $www = WWW::Mechanize->new($self->get_hostname()); $self->handle_page($www); } 1;