1*898184e3Ssthen#!/usr/bin/perl 2*898184e3Ssthen 3*898184e3Ssthenuse EnableModule; 4*898184e3Ssthenmy $x = "One"; 5*898184e3Ssthen 6*898184e3Ssthen$x = "FirstVal"; 7*898184e3Ssthen 8*898184e3SsthenEnableModule::set_x(\$x); 9*898184e3Ssthen 10*898184e3Ssthen$x = "SecondVal"; 11*898184e3Ssthen 12*898184e3SsthenEnableModule::set_x(\$x); 13*898184e3Ssthen 14*898184e3Ssthen$x = "ThirdVal"; 15*898184e3Ssthen 16*898184e3SsthenEnableModule::set_x(\$x); 17*898184e3Ssthen 18*898184e3Ssthen$x = "FourthVal"; 19*898184e3Ssthen 20*898184e3SsthenEnableModule::set_x(\$x); 21*898184e3Ssthen 22