use Win32::OLE qw(EVENTS);
use strict;

my $IE  = Win32::OLE->new("InternetExplorer.Application")
    || die "Could not start Internet Explorer.Application\n";
 

$IE->{visible} = 1;

$IE->Navigate("http://amos.shop.com/amos/cc/main/ccn_search/ccsyn/150/stid/6150608?search_form=&st=socks&sy=products&search_button.x=39&search_button.y=12");
sleep 5;
$IE->Navigate("http://amos.shop.com/amos/cc/main/ccn_search/ccsyn/150/stid/6150608", undef, undef, "search_form=&st=socks&sy=products&search_button.x=39&search_button.y=12", undef);
sleep 5;;

$IE->Navigate("http://amos.shop.com/amos/cc/main/ccn_search/ccsyn/150/stid/6150608", {PostData=>"search_form=&st=socks&sy=products&search_button.x=39&search_button.y=12"});
sleep 5;