Send email out : Mail « Network « Perl

1. Perl
2. Network
3. Mail

Send email out

    

$mailprogram="/usr/lib/sendmail";
$sendto="$input{xemailx}";       
$from="$input{xmailx}";
$subject="$input{xsubjext}";

open(MAIL, "|$mailprogram -t -oi") || die "Can't open mail program: $!\n";
print MAIL "To: $sendto\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

print MAIL <<EOF;    # Start a "here document"
    Registration Information for $input{$first_name}
        $input{$last_name}:
    Date of Registration: $today
    First Name:           $input{$first_name}
    Last Name:            $input{$last_name}
    Street Address:       $input{$address}
    City:                 $input{$city}
    State/Province:       $input{$state}
EOF
close MAIL;

   
    
    
    
  

Related examples in the same category