my $mailprogram = '/usr/sbin/sendmail'; # or path to your sendmail open (MAIL,"|$mailprogram -t"); print MAIL "To: toaddress\@example.com\n"; print MAIL "From:fromaddress\@example.com\n\n"; print MAIL $yourdata; #### Existing code that prints to the screen ### print "$yourdata\n"; #### End of print to screen ### close(MAIL);