Select Code to Download

sub print_details{
print "\nWe have recieved your order for a $pizza_size pizza with ";
&pizza_toppings;
}

# send e-mail
my $sendmail;
...
print SENDMAIL  "Subject: YOUR PIZZA ORDER\n" ;
print SENDMAIL &print_details;
close (SENDMAIL);