#!/usr/bin/env perl
use strict;
use warnings;
use Pair;

my $p1 = Pair->new(5, 3);
my $p2 = Pair->new(10, 4);


print "First element of P1: ", $p1->first, "\n";
print "Second element of P2: ", $p2->second, "\n";

my $sum = $p1 + $p2;
print "Sum of the two pairs: $sum\n";

print "$p2 - 5 = ", $p2 - 5, "\n";
print "10 - $p1 = ", 10 - $p1, "\n";
print "$p2 - $p1 = ", $p2 - $p1, "\n";