in reply to Can a whole web page be saved using Perl?

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();

[download]

It is strange: three consecutive runs gave:

C:\test>test-ie.pl
<HTML><HEAD><TITLE>Referrer test</TITLE></HEAD>
<BODY></BODY></HTML>
C:\test>test-ie.pl
<HTML><HEAD><TITLE>Referrer test</TITLE></HEAD>
<BODY><IMG alt=img1 src="img1"> <IMG alt=img2 src="img2"> </BODY></HTM
+L>
C:\test>test-ie.pl
<HTML><HEAD><TITLE>Referrer test</TITLE></HEAD>
<BODY><IMG alt=img1 src="img1"> <IMG alt=img2 src="img2"> </BODY></HTM
+L>

[download]

Only the first one had an empty body. Also, tags were uppercased and linebreaks chopped out.

From the docs: "WARNING: This is a work in progress...", last update in 2005(?).

Did you try WWW::Mechanize instead?

In Section Seekers of Perl Wisdom