#!/usr/local/bin/perl

open (IN, "/tmp/dir");

while(<IN>) {
  print "\nFrom MAILER-DAEMON Wed Jun 21 13:09:12 2000\n";
  open (RD, $_);
    while (<RD>) {
       print;
    }
}

