close(STDIN);
open(STDIN,"$post_data_file") or &_bye("Upload fehlgeschlagen");

my $cgi = new CGI();
my $assign = "";
my %vars = $cgi->Vars;

while(($key,$value) = each %vars)
{
    if(defined $value && $value ne '')
    {    
        my $fh = $cgi->upload($key);

        binmode ($fh);
    
        if(defined $fh)
        {
...