my ($part) = grep { /^\s*Total/ } `sysutil`;
my ($conn, $sess, $job) = (split(/\s+/, $part))[2..4];