use strict;
use warnings;
use MIME::Lite;

# Variablen wie bei Net::SMTP
my $Mailserver = 'mail.hm.edu';
my $From = 'webmaster@netzmafia.de';
my $To = 'plate@hm.edu';
my $Subject = 'Test Bild versenden';

my $msg = MIME::Lite->new(
                        From     => $From,
                        To       => $To,
                        Subject  => $Subject,
                        Type     =>'image/jpeg',
                        Encoding =>'base64',
                        Path     =>'fragezeichen.jpg'
                        );

# statt Sendmail (Default) Net::SMTP verwenden
MIME::Lite->send('smtp', $Mailserver, Timeout => 60);
$msg->send();