Select Code to Download

print TOHOST "To: $your_email \nFrom: $your_email\n";
print TOHOST "Subject: Name Change\n";
print TOHOST "$email_send\n";

print TOHOST "To: $your_email \nFrom: $your_email\n",
     "Subject: Name Change\n", "$email_send\n";

print TOHOST <<EOT;
To: $your_email
...
Subject: Name Change
$email_send
EOT

use strict;
use warnings;

$sock, $name, $match, @email, $sendmail, $your_email

#!/usr/bin/perl

...
    }

}