#!/usr/bin/perl
use DiePair;

my $die_pair          = DiePair->new(6, 6);
my ($total, $doubles) = $die_pair->roll();

print "Your total is $total ";
print "it was doubles\n" if $doubles;
print "it was not doubles\n" unless $doubles;
