Select Code to Download

use File::Listing qw(parse_dir);

my @dirs = map { my( $name, $type ) = @$_; $type eq 'd' ? $name : () }
+ parse_dir(`ls -l`);

my @dirs = map { my( $name, $type ) = @$_; $type eq 'd' ? $name : () }
+ parse_dir(`ls -la`);