#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Date::Calc qw/Days_in_Month Month_to_Text/;
my $month = 2;
my $year = 2016;
print "There are ", Days_in_Month ($year, $month), " days in ", Month_to_Text ($month), " of $year.\n";