sub eins
{
   my $var=1;
   sub zwei
   {
       print $var."\n";
   }
   &sub zwei();
}