Provided you remove the comma from the print statement, it'll actually work
too. ;)
David
-Original Message-
From: Ihnen, David [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 19, 2000 11:58 AM
To: '[EMAIL PROTECTED]'; [EMAIL PROTECTED]
Subject: RE: How to grab the envelope contents
OK, so I tried this:
#!/usr/bin/perl
if ($#ARGV != 0) {
die "Usage: $0 outputfile\n";
}
open (INFD, "1") or die "BAD FD IN";
open (OUTFILE, "$ARGV[0]") or die "BAD FILE OUT";
# open (OUTFD, "1") or die "BAD FD OUT";
while (INFD) {
print OUTFILE "$_";
# print OUTFD "$_";
}