eval {
	local $SIG{ALRM} = sub { 
		die("alarm\n");
	};

	alarm 60;
	parsePageFunction();
	alarm 0;
};

if ($@) {
	if ($@ eq "alarm\n") { 
		print("Webpage Timed Out.\n\n");
	} else { 
		die($@."\n");
	}
}