SYNOPSIS

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