use localtime() like ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); then compare the $hour with ur system time then in subrouten write this module sub kill { $pid=getpgrp(); ######## To get the Process ID system("kill $pid"); }