sub get_fh($$;$)
{
    my($class, $file, $option) = @_;   # pick parameters
    $option ||= "dummy";               # set default option