use WWW::Mechanize; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($ERROR); # The starting point URL my $start_url = "http://***.**.**.*:****"; my $ret_val; my $redir_pattern = 'HTTP-EQUIV="Refresh"\s*CONTENT="0;URL='; my @temp_array; my $redir_url; # Create a new instance of WWW::Mechanize my $agent = WWW::Mechanize->new(); # Retrieve the page $agent->get($start_url); my $content = $agent->content(); print $content; my @links = $agent->find_all_links(); print $#links; #### Inventum - Service Selection Gateway

Please wait...

-1