sub open_memory {
   my ($mode, $scalar_ref) = @_;
   open my $fh, $mode, $scalar_ref or die "open(): $!";
   my $retval = IO::File->new_from_fd($fh, $mode)
     or die "IO::File->new_from_fd() failed";
   return $retval;
} ## end sub open_memory