This works for me (FreeBSD - it is not portable):

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