Select Code to Download

$user = $file;

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

my $number = <STDIN>;
chomp $number;
...
my $user = $ulist[$number];

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