#!perl
#!/usr/bin/perl -w

use strict;
use CGI;
use Mail::Sender;

  my $mailtext = "Das ist der Text\nden ich gerne senden wuerde...";

  my $sender = new Mail::Sender {
                smtp => 'smtp.swissonline.ch',
                from => 'sbeer@swissonline.ch',
                auth => 'Stephane Beer',
                authid => 'sbeer',
                authpwd => 'MEINPASSWORTFUERMEINENSWISSONLINEACCOUNT',
                on_errors => undef,
  }  or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

  $sender->MailMsg({to => 'sbeer@gmx.ch',
                    subject => 'Testmail',
                    msg => $mailtext}) or print $Mail::Sender::Error;