use CGI;
use CGI::Upload;

my $form = new CGI;
my $upload = CGI::Upload->new;
my $file_name = $upload->file_name('file');
die $form->cgi_error . "\n" if $upload->cgi_error;

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