#!/usr/bin/perl -- use strict; use warnings; use WWW::Mechanize 1.73; my $ua = WWW::Mechanize->new( autocheck => 1 ); $ua->show_progress(1); $ua->get( 'http://perl-tutorial.org/' ); print $ua->content; __END__ ** GET http://perl-tutorial.org/ ==> 200 OK (1s)