$x = 10; 

sub f  
{  
   print $x."\n";  
} 

sub g  
{  
   $x = 20;  
  
   return f();  
} 

g();