my $emailCC = 'Any Person '; print MAIL "To: $emailTo\n"; print MAIL "Cc: $emailCC\n"; . .