Select Code to Download

#!/usr/bin/perl
use strict;
...
                 'Month' => 45,
                 'Freq' => 'OneTime'
               }, 'Appointment' );

#!/usr/bin/perl
#file: Appointment.pm
...
              );

1;