#!/usr/bin/perl -I .

use strict;
use warnings;

use AtestClass;         #import the module, make the class available

my $obj = AtestClass->new();	#make a new object of the class

print "We created an object\n";

$obj->getSet('one',111);	#set an attribute
$obj->getSet('two',222);	# and another one

print "using the getter for 'one' we got " . $obj->getSet('one') ."\n";
print "  and for 'two'" . $obj->getSet('two') . "\n";

exit(0);