#!/usr/bin/perl -I .

use strict;
use warnings;

use AtestClass2;		#the new class
 
my $obj = AtestClass2->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";

{#this block exists ONLY to demonstrate scoping
    my $obj = AtestClass2->new();
    print "we are done with the block\n";
}

exit(0);