{
  my $var;

    sub func {
      $var=1;
      func2($var);
    }

}