use CGI::Upload;
use strict;
use warnings;

my $upload = CGI::Upload->new;

my $file_name = $upload->file_name('file');

die $upload->cgi_error . "\n" if $upload->cgi_error;

my $se_input;

open( $fhin, "<", $file_name ) or die "Konnte Input $file_name nicht oeffnen!\n";
while (my $line = <$fhin>) {
        chomp($line);
        $se_input = $line;
}
##weiterer Code