THANKYOU!! if no email entered

Hello Perl Monks, Do's anyone have any examples as to how to send a email reply back to my HTML if someone selects the my email value;ie ($form_name, $email) = split (/=/, $fields[1]) on my HTML form and if not to send a Thankyou. Best Rgds; ##

##


#!/usr/bin/perl -w

# Get the submitted data
$content_length = $ENV{'CONTENT_LENGTH'};

# Read user data into script variables
read (STDIN, $form_data, $content_length);

$form_data =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C",hex ($1))/eg;

# Replace "+" sign with " "space char.
$form_data =~ s/\+/ /g;

# Split $form_data into name/value pairs:
@fields = split (/&/, $form_data);

# Init variables with form data values from following fields:

($form_name, $name) = split (/=/, $fields[0]);
($form_name, $email) = split (/=/, $fields[1]);
($form_name, $comments) = split (/=/, $fields[2]);



# Send back user confirmation:

print << "END_OF_REPLY";
Content-type: text/html



THANKYOU!! if no email entered 





Thankyou $name !




See you next time!!