sub setVarValue{
	($inputVal) = @_;
	
	$v = $inputVal;
	
	return $v
}
1;

##</code><code>##

require 'C:\Users\Administrator\workspace\GPSTracker\lib\printVar.pl';

while(1){
        $newVal = setVarValue(1);
	print "MAIN ONE - NEW VAL = $newVal\n";
}

1;

##</code><code>##

require 'C:\Users\Administrator\workspace\GPSTracker\lib\printVar.pl';



while(1){
	
	$newVal = setVarValue(2);
	print "MAIN TWO - NEW VAL = $newVal\n";
}

1;