use strict;
use warnings;
use Data::Dumper;

my $path = shift @ARGV;
opendir (DIR, $path) or warn "Couldn't open $path: $!";
my @dirs = sort readdir(DIR);
closedir(DIR);
print "$path\n\t", Dumper(\@dirs);

##</code><code>##

C:\tmp>test.pl "C:\Documents and Settings\z6and\Desktop\x"
C:\Documents and Settings\z6and\Desktop\x
        $VAR1 = [
          '.',
          '..',
          '328-24.08.2006-14.30',
          '335-25.08.2006-06.40'
        ];

##</code><code>##

C:\tmp>test.pl "C:\Documents and Settings\z6and\Desktop\x"
C:\Documents and Settings\z6and\Desktop\x
        $VAR1 = [
          '.',
          '..'
        ];