Try this:
code:
open (FILE, 'BLAHsecretBLAH.txt');
@lines = (<FILE>);
foreach $lines (@lines) {
print;
}
That will put the lines in an array that to Perl will have the string representation of what you printed to the file. So the array itself would look like kind of this very shortened version, if you defined it manually:
@lines = qw ("-------" , "Date: 12/2/02\n", "IP: $ip \n", "Referrer: $ref \n", "Browser: $browser \n", "User: $user \n", "To: $FORM{'email'}\n", "From: $FORM{'from'}\n", "Subject: $FORM'subject'}\n", "Message: $FORM{'message'}\n");
Of course all the variables above would be the actual data that the person entered when mailing you.
I hope that helps....