open(HHOL, "C:/tmp/HHOL/HHOL.txt") || die ("unable to open HHOL file");
   while(my @HHOLid = split /=[^\n]*\n/, <HHOL>) { 
	foreach $HHOLid (@HHOLid) {
           $src = "http://www.helpfulholidays.com/property.asp?ref=".$HHOLid."&year=".$year;
	   sleep (rand 10);
	   $_ = get($src);
           print ("$src\n");
         }
    }
}