sub sendEmail { my $to_field; my %param; foreach my $n ($query->param){ $param{$n} = $query->param($n); push @allStuff, $1; } &request(%param); } sub request{ my( %param )= @_; open(MF, $SENDMAIL_CMD); print MF<<__MAIL_EOF__; From: $param{from_email} To: $param{to_field}, $param{otherEmail} Subject: Subject Line Bcc: $Monitor_email #email message here.... __MAIL_EOF__