DB<14> x $option
0  undef
  DB<15> s
Fileclerk::get_fh(<laanger/path/to/File.pm>:65):
65:        my $option = "dummy" unless ($option);
  DB<15> x $option
0  'write'
  DB<16> s
Fileclerk::get_fh(<laanger/path/to/File.pm>:66):
66:        $file = abs_path($file) unless ( $file eq "tmpfile" );
  DB<16> x $option
0  undef
  DB<17>