use Win32::IE::Mechanize qw( ); my $mech = Win32::IE::Mechanize->new(); my $url = 'http://www.vitoco.cl/test-ref'; $mech->get($url); print $mech->content(); #### C:\test>test-ie.pl Referrer test C:\test>test-ie.pl Referrer test img1 img2 C:\test>test-ie.pl Referrer test img1 img2