#!/usr/bin/perl

use strict;
use warnings;
use Win32::OLE;

#URL to get the cookie
my $x10_url = 
	'http://www.x10.com/home/optout.cgi?DAY=30&PAGE=http://www.x10.com/x10ads1.htm';

#gimme an IE
my $ie = Win32::OLE->new('InternetExplorer.Application') 
	or die "Error getting IE instance: " . Win32::OLE->LastError();

#gimme a cookie, not sure about error checking on this
$ie->Navigate($x10_url);