open (LOGFILE, "> $logname") or die "Kann Logfile '$logname' nicht oeffnen: $!\n";
    my $old_stdout = select(LOGFILE);

    [...]

    close (LOGFILE) or die "Kann Logfile '$logname' nicht schliessen: $!\n";
    select($old_stdout);