Select Code to Download

    use File::Temp;
    use constant STATUS_DIR => '/tmp/status-dir';
...
            $fh->close if $fh;
        }
    }

    # here is the meat of our worker code

...
    # finally!  whew, that was hard work :)
    log_status("worker exiting");
    close_status();

$ cat /tmp/status-dir/14416-UXL0uq.txt
14416 - Fri Nov 12 12:40:06 2004 - worker starting; config=blah...
14416 - Fri Nov 12 12:40:06 2004 - worker starting stage two
14416 - Fri Nov 12 12:40:06 2004 - worker starting stage three