open (MAIL,"|$sendmail"); print MAIL <<"EOF"; To: 'jones@here.com' From: 'smith@here.com' Subject: 'Names' $name EOF close MAIL; print header, <<"EOF"; $name EOF