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