#!C:\Perl\bin\perl -w

use Mail::Mailer qw/smtp/;

my $mailer = new Mail::Mailer 'smtp', Server => "elinara.ktu.lt";

$mailer->open(To => ['mindaugas@elinara.ktu.lt'],
              Cc => ['mindaugas@elinara.ktu.lt'],
            From => 'mindaugas@elinara.ktu.lt',
         Subject => 'Some test mail');

print $mailer "Message Body.\n";

$mailer->close;