use Net::SMTP;

my $mo = {
	host => 'host',
	user => 'user',
	pass => 'pass',
};


my $smtp = Net::SMTP->new($mo->{host}) or die '???';
$smtp->auth($mo->{user}, $mo->{pass});
$smtp->hello('yahoo.de');
$smtp->mail('nmqrstx-18@yahoo.de');
$smtp->to('nmqrstx-18@yahoo.de');
$smtp->data($ARGV[0]);
$smtp->send;
$smtp->quit;