------------------------------------
#! /usr/bin/perl

open my $rs, "ps aux 2>&1 |";
my @pslist = <$rs>;
close $rs;

$tt=time;

foreach my $Line (@pslist){
	my @Parts=split(/ +/,$Line);
	my @Parts2=split(/:/,$Parts[9]);
	#duration hour>10
	if ($Parts2[0]>10 && $Parts[10] eq 'perl'){
		open (FILE,">>killlog.txt");
		print &DecodeTime($tt)."\n";
		print FILE $Line."\n";
		close FILE;
		`kill $Parts[1]`;
		}
	}
print "Content-type: text/html\n\n";
print 'ok';
exit;

sub DecodeTime{
($DTsec,$DTmin,$DThou,$DTmday,$DTmon,$DTyear,$DTwday,$DTyday,$DTisdst)=localtime($_[0]);
$DTyear =$DTyear+1900;
$DTmon=$DTmon+1;

$DTtime =sprintf("%4d",$DTyear)."/".sprintf("%02d",$DTmon)."/".sprintf("%02d",$DTmday).' '.sprintf("%02d",$DThou).':'.sprintf("%02d",$DTmin);
return($DTtime);
}
------------------------------------