my $SendObject=Win32::OLE->new('microsoft.XMLhttp');
$SendObject->open"GET", "http://www.helpfulholidays.com/availability_fullpage.asp?pref=T421&year=2003", "false");
$SendObject->setRequestHeader("Content-type", "text/plain");
$SendObject->send();
my $RegResponse = $SendObject->responseText;