#!/usr/bin/perl -w
use Cwd;
my $dir = getcwd;
my $userhome = $ENV{HOME};
my $hdir = "/export/home";
my $userlist = "/$userhome/etc/userlist.cfg";

open(MYFILE, "$userlist") || die "Cant open File $userlist: $!\n";
my @ulist=<MYFILE>;

foreach my $file (@ulist) {eval {
print "\n";
$n++;
print $n;
print "  $file\n";
}}
print "      Please select which user you would like to...\n";
my $number = <STDIN>;
chomp $number;
die "Invalid Selection\n" if $number =~ /\D/;
die "Number given is too big\n" if $number > scalar(@ulist);
my $user = $ulist[$number];

chdir("$hdir/$user") || die "Cant Change to directory $hdir/$user: $!\n";

&first;
sub first {
system("su - $user -c whatsrunning");
}
sub second {
print "Would you like to see the options again?\n";
my $answer = <STDIN>;
chomp $answer;

if ($answer eq "Y" || $answer eq "y" || $answer eq "yes") {
system("su - $user -c whatsrunning");
&second;
} else {exit 0;
}}
&second;