#!/usr/bin/perl

#mweigle 67588 89.2  1.0 10400 10212  p1  S+    3:21PM   0:24.78 ns

$USER = "mweigle";

$ps_line = `ps ucU $USER | grep ns | grep -v "0:00"`;

# read execution and memory times
chop $ps_line;
($user, $pid, $pcpu, $pmem, $vsz, $rss, $tt, $stat, $stime, 
 $time, $cmd) = split (" ", $ps_line);
($hr, $min, $sec) = split (":", $time);
if ($sec eq "") {
  $secs = ($hr * 60) + $min;
} else {
  $secs = $sec + ($min * 60) + ($hr * 3600);
}

print "\t$secs\t$vsz\n";