#!/usr/bin/perl

# This just sets perl to be strict about how it runs.
use strict;
use warnings;

# Load my module.
use AN::Tools;

# Call my constructor method and show the user what is happening.
print "Starting 'inherit.pl'\n";
my $an=AN::Tools->new();

# Call the method 'add' using my 'an' object.
my $added_1=$an->add(2, 2);
print "2 + 2 = [$added_1]\n";

# Call the method 'add' using my 'an' object.
my $subtract_1=$an->subtract(9, 4);
print "9 - 4 = [$subtract_1]\n";

print $an->say_author();

# Now show the counts.
$an->say_counts();