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

sub callFun     {

&$subRef(20);

}