Unit test: programlisting.003

1@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
5@rem ';
 
# Compress mail...
 
require 'n:/home/nwalsh/lib/cygnus.pl';
10require 'timelocal.pl';
use Cwd;
 
select (STDERR); $| = 1;
select (STDOUT); $| = 1;
15 
@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
20    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;
 
25        print "$file\n";
        push (@DIRS, $file);
        &compress ($file);
    }
}
30 
exit;