use warnings;

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

   sub inner {
      print("$var\n");
   }

   inner();
}

outer("abc");
outer("def");