foreach my $file (@ulist) {eval {
print "\n";
$n++;
print $n;
print "  $file\n";
}}
print "      Please select which user you would like to...\n";
my $user = <STDIN>;
chomp $user;
$user = $file;

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