454 # ===== basic utility routines
    455 
    456 sub writelog;


    640 sub writelog($) {
    641     my $arg = shift;