sub print_details { my $fh = shift; print $fh "We have recieved your order for a $pizza_size pizza with "; pizza_toppings(); } open my $sendmail, "| /usr/sbin/sendmail -t" or die ("no sendmail??"); [...] print $sendmail "Subject: ...\n\n"; print_details($sendmail); close $sendmail;