#!/usr/bin/perl
use strict;
use warnings;

use Net::SMTP;
my $SMTP_HOST = 'localhost';
my $from = 'aaa@hotmail.com';
my $to = 'bbb@gmail.com';

my $msg = "MIME-Version: 1.0\n"
        . "Content-Type: text/plain; charset=UTF-8\n"
        . "Content-Transfer-Encoding: 8bit\n"
        . "From: $from\n"
        . "To: $to\n"
        . "Date: Sun, 23 Mar 2008 15:47:22 +0200\n"
        ##the subject
        . "Subject: δΈ­εη©ζ΅δΈιθ΄­θεδΌ\n\n"
        ##the body
        ."δΈ­εη©ζ΅δΈιθ΄­θεδΌ\n";

#Creating the SMTP object
my $smtp = Net::SMTP->new( $SMTP_HOST,'Debug' => 1);

#Sending the data
$smtp->mail($from);
$smtp->recipient($to);
$smtp->data ($msg);
$smtp->quit;