$process = 224;
@a = `ps -p $process`; 
@b=split(/\s+/,$a[1]); 
print $b[4];