sub outer {
  my $x;
  $x=shift;

  sub inner {
    print "x is $x\n";
  }
}