my $file = undef;
open my $fh, "+>", $file or die $!;