Help for this page
#!/usr/bin/perl BEGIN{ ... print FILE "subj is $subject"; print FILE "body is @body"; close(FILE);
from is to is subj is body is < the body is here >