use strict;
use warnings;
use Win32::IE::Mechanize;
my $ie = Win32::IE::Mechanize->new( visible => 1,
                                    left => 0,
                                    top => 0,
                                    height => 950,
                                    width => 1280,
                                  );
$ie->get('http://www.google.com');  #example!
sleep 5;
$, = "\n";
print my @links = $ie->links;