#!/usr/bin/perl

use Mail::Sender;
use strict;

my @text;
my $message = "test";

open (DATEI, '< text');
@text = <DATEI>;
close (DATEI);


 my $sender = new Mail::Sender {
                smtp => 'asd',
                from => 'asd',
                auth => 'LOGIN',
                authid => 'asd',
                authpwd => 'asd',
                on_errors => undef,
  }  or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

  $sender->MailMsg({to => 'asd',
                    subject => 'Testmail',
                    msg => @text}) or print "FUBAR";