use strict;
use warnings;

sub outer {
   my ($x) = @_;

   sub inner { # XXX bad
      print("$x\n");
   }

   inner();
}

outer(4);
outer(5);
inner();