sub writer_function {
    if((time - $^T <= $max_uptime) && ($output_size <= $max_size)) {
        #
        # Normal processing here
        #
        $output_size += $size_written;
    } else {
        #
        # Cleanup, then exit
        #
    }
}