Select Code to Download

use strict;
use warnings;
...
my @dirs = sort readdir(DIR);
closedir(DIR);
print "$path\n\t", Dumper(\@dirs);

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

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