Email mit Anhang

[Bastian Schnitzler]

Danke,
mein Script sieht nun so aus: (kontakt.cgi)

#!/usr/bin/perl
$Sendmail_Prog = "/usr/lib/sendmail";
use CGI;
$cgi = new CGI;
use MIME:Lite;

my $mailto = "[e-mail]";
my $returnhtml = "../danke.htm";
my $subject = $cgi->param('Betreff');
my $Name = $cgi->param('Nomen');
my $Email = $cgi->param('Email');
my $Nachricht = $cgi->param('Nachricht');
my $absender = $cgi->param('Email');
my $Anhang = $cgi->param('file_attach');

$msg = MIME::Lite->new(
                 From    => "$Email",
                 To      => "$mailto",
                 Subject => "$absender",
                 Type    =>'TEXT',
                 Data    =>"Name: $Name\nNachrich: $Nachricht\n");

$msg->attach(Type     => 'multipart/form-data',
                 Path     => "$Anhang",
                 Filename =>'Anhang');

$msg->send;

Könnte man nun über mein Formular Emails mit Anhang verschicken?
Und: Wie könnte ich den "Filename" der Datei entsprechend verändern?
Also den Namen der Datei aus dem Feld 'file_attach' extrahieren.
Danke!