Fetch a cookie to disable X10 popup ads

Use this script on Windows machines to fetch a cookie from x10.com that disables the annoying popup ads for 30 days. It's embarrassingly simple but does the job. You have to fetch a new cookie every 30 days so make this a Scheduled Task in Windows to run once a month. Make sure you have the script run as your user ID so the cookie goes to the right place.

Update: Well, they lied. Even though this successfully fetches the cookie, I still get the annoying pop-ups from time to time. It seems to happen less frequently but of course that's subjective so I'm not sure. Rotten scoundrels!

#!/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);
[download]

Back to Cool Uses for Perl