use cryzone; 
$cryzone::a=1; 
print $cryzone::a; 
system("1.exe"); 
$cryzone::a=2; 
print $cryzone::a;