Select Code to Download

#!/usr/bin/env perl
use warnings;
...
  @dirs = readdir $dh ;
  print  "@dirs \n";
  close $dh;

. .. 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip

.DS_Store 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip

. .. .DS_Store 
. .. .DS_Store MTOS-4.37-en MTOS-4.37-en.zip

mac-pro:setup_scripts wrinkles$ ls -al mt
total 11536
...
-rw-r--r--@  1 wrinkles  staff     6148 Jan 19 20:04 .DS_Store
drwxr-xr-x@ 29 wrinkles  staff      986 Jun 21  2011 MTOS-4.37-en
-rw-r--r--@  1 wrinkles  staff  5895060 Sep  3 22:22 MTOS-4.37-en.zip