open (my $fh, '+>', undef);