my ($from, $subj, $body) = @ENV{qw(FROM SUBJECT BODY)};