Article wrapper

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