# statt:
#my $objekt3=ERRORCODEOBJ->new();
#$objekt3->errormap(1);
# einfach:
my $obj = ERRORCODEOBJ->new();
print $obj->errormap(1);