# and here is a test usage
use strict;
use warnings;

use lib 'lib';
use SharedvariablesM;

my $SVars = SharedvariablesM->new();

for (qw/var1 var2 var3/){
	$SVars->value($_, $_);
}
print $SVars->toString();

my $clone = $SVars->clone();
print $clone->toString();