use strict;
use warnings;
use Win32::IEAutomation;
use Data::Dumper;

# Creating new instance of Internet Explorer
my $ie = Win32::IEAutomation->new( visible => 1);


# Site navigation
#$ie->gotoURL('http://server.company.com/callcenter_enu/start.swe');

my @images = $ie->getAllImages;
#print Dumper(@images);
print "Image: @images\n";

my @links = $ie->getAllLinks; 
#print Dumper(@links);
print "Link: @links\n";