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);