system( 'expect', '-f', $theScript, $cd, 'pwd',
        "find . -name  '*.std*' -o -name 'ULOG.*' -mtime +9 -type f -exec rm {} ';'",
        "pwd",
    );