>perl -wMstrict  -le
"sub huh41 {
   my $nullstring = '';
   my $huh = open my $fh, '>', $nullstring or die $!;
   $huh += print $fh 'huh1';
   $huh += close $fh;
   }
 print huh41();
"
No such file or directory at -e line 1.