You could do something up like the following:

open (MAIL, "$mailprog") or &cgierr("unable to open mail program");
print MAIL "$rec{'field1'}|$rec{'filed2'}|$rec{'field3'}";
close (MAIL);

I have mine set up to only send me certain fields so it's set like the following:

print MAIL "Action Taken: $rec{'Action Taken'}\n";
print MAIL "Equipment Status: $rec{'System Status'}\n";
print MAIL "Trouble Status: $rec{'Trouble Status'}\n";
print MAIL "Reported By: $rec{'Reported By'}\n";

But I'm sure the other will work just fine for you (IF that's what you're looking for)

Conor Treacy
-----
www.HandsonWebDesign.com