{
        local $subRef = sub {
        $var = shift;
         print "hello monks --- [$var] \n";
      };
        &callFun();
}

sub callFun     {

&$subRef(20);

}


##</code><code>##


{
        $subRef = sub {
        $var = shift;
         print "hello monks --- [$var] \n";
      };
        
}
&$subRef;