package ModuleToTest; sub f { open(my $fh, '<', \my $buf) or die("open: $!\n"); } 1;