#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use CGI ();
use File::MimeInfo::Magic;

sub GetMimeType {
  my $fname = shift;
  my $mimetype = File::MimeInfo::Magic::mimetype($fname);
  return $mimetype;
}

my @files;

my $FORM = <<HTML; 
<form method="POST" enctype="multipart/form-data">
	<!-- hier weitere Felder -->
	Bild hochladen:<br>
	Bild 1: <input type="file" name="uploadBild"> <br>	
	Bild 2: <input type="file" name="uploadBild"> <br>
	Bild 2: <input type="file" name="uploadBild"> <br>
	<input type="submit" value="Senden" onClick="return validate_form()">
</form>
HTML

my $cgi = CGI->new;

print $cgi->header('text/html');

if ( $cgi->request_method() eq 'GET') { 
	print $FORM;
}

elsif ( $cgi->request_method() eq 'POST') { 
	@files = $cgi->param('uploadBild');

	for my $file (@files) {
		print "Size: ", (stat($file))[7], 
		      " Mime-type: ", GetMimeType($file), '<br>';
	}
}