#!/usr/bin/perl

use strict;
use warnings;

package AtestClass;     #namespace and therefore class name

sub new{ #Constructor, can have ANY name, but convention is 'new'
    my $class = shift;	#when called we are called with the class name
                        # convention says use $class and $self as names
    my $self = {};      #create an anonymous hash where this object
                        # will store its data
    bless $self,$class;	#this is to be an object of the class, bless it 
                        # it into the class
    return $self;       #and return the object reference
}