use NET::SMTP;
$smtp = Net::SMTP->new('mail.blackrose.net'); # connect to an SMTP server
$smtp->mail( 'Personals\@blackrose.net' ); # use the sender's address here
$smtp->to($in{'Mail'}); # recipient's address
$smtp->data(); # Start the mail

# Send the header.
$smtp->datasend("To: $in{'Mail'}\n");
$smtp->datasend("From: Personals\@blackrose.net\n");
$smtp->datasend("BCC: Personals\@blackrose.net\n");
$smtp->datasend("Subject: Your Bondage Personals Access Information\n");
$smtp->datasend("\n");