#!/usr/bin/perl -w

use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use warnings;
use File::Type::WebImages 'mime_type';
use File::Type;
use strict;
...
...
my $path = 'd:/bilder/userpic';
my $filehandle = $cgi->upload('user_pic');
my $filename = $params{'user_pic'};
$filename = (split(/[\\\/]/,$filename))[-1];
$filename =~ s/[^A-Za-z0-9_\.\-]//g;
...
...

sub upload_datei
{
        
my $ft = File::Type->new();
my $type_3 = $ft->checktype_contents($filename);
my $type_2 = mime_type($filename);
...
...
...