opendir DIR, "$TEMP_DIR/" or &file_error("Unable to open directory. $!");
readdir DIR for 0 .. 1;
@files = grep -f "$TEMP_DIR/$_", readdir DIR;
closedir DIR;

my %hash;

foreach my $filename (@files)
{
my($base) = $filename =~ /(.+?)\..+?$/;
$hash{$base} = $filename;
}

my $AttachentFile = $hash{$SessionID};
my $ext = (split /\./, $AttachentFile)[1];
my $MailAttachment = "$TEMP_DIR/$SessionID$ext";

if (!-e $MailAttachment) {&program_error("Keine Datei vorhanden. $!");}

print "Content-type: text/html\n\n";
print "AttachentFile: $AttachentFile<br>\n";
print "MailAttachment: $MailAttachment<br>\n";
print "ext: $ext<br>\n";
exit;