#!/usr/local/bin/perl

@tlid_pids = (0, 0, 0, 0, 0, 0, 0, 0);
$tlid_count = 0;

open(PS, "ps -ef|grep tlid|grep -v grep|") || die "couldn't ps -ef: $!"; 

while (<PS>) {
	($username, $pid, $ppid, $c, $starttime, $rest) = unpack("A8 A6 A6 A3 A9 A*", $_); 
	print "$pid, $ppid, $starttime\n"; 
	$tlid_count++; 
}