sub {
                  my $fh = shift;
                  print Dumper $fh;
                  $fh->[0]->do_soft_close();
                  die "Timed out\n";
                }