eval {

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

alarm 60;
&parsePageFunction();
alarm 0;
};#eval

if($@) {

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