#!/usr/bin/perl -w

use strict;

my @files = ("/mnt/csphil/home/fburns/domereports/Weekly_Reports/de-nj
+-md", "/mnt/csphil/home/fburns/domereports/Weekly_Reports/pa_only", "
+/mnt/csphil/home/fburns/domereports/Weekly_Reports/phila_market");

my $file;
foreach $file (@files) {
    if (! -e $file) {
        warn "$file does not exist";
        next;
    }
    warn "$file is unreadable" unless -r $file;
    warn "$file has zero size" if -z $file;
}
[download]