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

die "Usage: $0 filepath\n" if (@ARGV != 1);

my $file = $ARGV[0];
# Pfad vom Dateinamen abtrennen
$file =~ s|^.*/||;

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

# Text der Mail
my $text = qq~
Hallo mein Freund,

dieses ist eine automatisch erstellte Mail und deshalb
nicht sehr persoenlich gehalten ;-)

Im Anhang findest Du die Datei $file.

Viele Gruesse,
 der Admin
~;
# Erster Teil: Normaler Text aus einer Variablen
my $msg = MIME::Lite->new(
                        From     => $From,
                        To       => $To,
                        Subject  => "Datei: $file",
                        Type     => 'TEXT',
                        Data     => $text
                        );
                        
# jetzt das Attachment anhaengen                         
$msg->attach(Path     => $ARGV[0],     # Bild-Datei
             Type     => 'image/jpeg',
             Encoding => 'base64',
             Filename => $file );      # name after arrival

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