1 #!/usr/bin/perl
  2 use File::Listing qw(parse_dir);
  3 $listing = `ls -l`;
  4 @directories = parse_dir($listing);
  5 print @directories;