Select Code to Download

 for my $file (`ls -l /some/dir`) { ... }

    opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
    @files= grep { -f "$some_dir/$_" } readdir(DIR);
    closedir DIR;

 
#
# mailit - send an email using mailx. Accepts either a $body or a path
+ 
...
                }        
        }        
}