dirs.pl

#!/usr/bin/perl

my $path = $ARGV[0];
if ( -d $path ) {
    if ( opendir DIR, $path ) {
        my @dirs;
        for my $item ( readdir DIR ) {
            if ( -d $path.$item ) {
                next if $item =~ m|^home|;
                next if $item =~ m|^..$|;
                next if $item =~ m|^.$|;				
                push @dirs, $item;
            }
        }
        print $path.$_."\n" for @dirs;
    }
}