We already gave you many answers including the one you need here, look at Error in converted shell script (was: Pls Help). Next time choose a better title for your questions and don't use us for real-time debugging :)

Ciao, Valerio

Try to find a subject line that actually describes your problem.

Here's one way:

#!perl
use warnings;
use strict;
my $dir = '/home/sites/$arg1/users';
opendir DIR, $dir or die "Cannot opendir $dir:$!\n";
my @users = grep { -d  "$dir/$_" and not /^\.{1,2}$/} readdir DIR;
closedir DIR;

# do whatever you want with @users
print join "\n",@users;
[download]

--
Regards,
Helgi Briem
helgi AT decode DOT is

my %DupKiller;

foreach $f(@filelist){
   ###Do Your Processing Here
   $DupKiller{$f} = 1;
}

my @store = keys(%DupKiller);
[download]