if ($read >= $fsize) {
        chomp($_ = <$in>);
        print $out $_;
        $read = 0;
        close($out);
        $out = nextfile($file, $fcount);
        print $out $/;
    }