Select Code to Download

#!/usr/bin/perl 
BEGIN{
...
    print FILE "subj is $subject";
    print FILE "body is @body";
close(FILE);

from is 
to   is 
subj is 
body is  &lt the body is here &gt