#!/usr/bin/perl
# show my processes
#

use strict;

my $PS = "/bin/ps";

my $user;

print "Username to search for: ";
chomp ($user = <STDIN>);

open (PS, "-|") || exec $PS, "-awux";
while (<PS>) {
        if ($_ =~ /^$user/) {
                print;
        }
}