my $new_name = 'terrences_process';
$0 = $new_name;

my $login = getlogin || 'tmbranno';
warn $login;

my %ps = (
          'Darwin' => [qw(ps aux)],
          'SunOS'  => [qw(ps -eaf)]
          );
my $uname = `uname`;
chomp $uname;

my $cmd = join ' ', @{$ps{$uname}}, '|', 'grep', $login , '|', 'grep', $new_nam\
e;
warn $cmd;
my $ps = `$cmd`;

warn $ps;