use strict;
use warnings;

use Win32::OLE             qw( );
use Win32::OLE::Variant; # qw( Variant VT_* );

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

my $url       = "http://amos.shop.com/amos/cc/main/ccn_search/ccsyn/150/stid/6150608";
my $post_data = "search_form=&st=socks&sy=products&search_button.x=39&search_button.y=12";

$IE->Navigate(
   $url,
   undef,
   undef,
   Variant(VT_UI1, $post_data),
   "Content-Type: application/x-www-form-urlencoded\r\n",
);

# Alternative Syntax
# ==================
#
# $IE->Navigate($url, {
#    PostData => Variant(VT_UI1, $post_data),
#    Headers  => "Content-Type: application/x-www-form-urlencoded\r\n",
# });