SYNOPSIS

use MYDan::Oncall::Calendar;

MYDan::Oncall::Calendar->new( $year, %block )->print( $month );