use strict;
use warnings;

{
   my $f = 'test';
   my $g = 'test';

   sub f {
      sub { print "f: $f\n" }->();
   }

   sub g {
      $g if 0;
      sub { print "g: $g\n" }->();
   }
}

f();
g();