use strict;
use warnings;
use Win32::Internet;

my $INET = new Win32::Internet();
my $file = $INET->FetchURL("http://www.yahoo.com");
print $file;