#!/usr/bin/perl use EnableModule; my $x = "One"; $x = "FirstVal"; EnableModule::set_x(\$x); $x = "SecondVal"; EnableModule::set_x(\$x); $x = "ThirdVal"; EnableModule::set_x(\$x); $x = "FourthVal"; EnableModule::set_x(\$x);