#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Appointment;

my $x = Appointment->new(Month=>45, Day => 1); 
print "Month: ",$x->Month,"\n";

print Dumper $x;

__END__
Prints:

Month: 45
$VAR1 = bless( {
                 'Day' => 1,
                 'Month' => 45,
                 'Freq' => 'OneTime'
               }, 'Appointment' );