use strict;
use Calendar::Simple;
use Data::Dumper qw/Dumper/;

my ( $mon, $yr ) = ( localtime )[4,5];
$mon++;
$yr+=1900;

my @weeks = calendar( $mon, $yr );
my @month;
for my $week ( @weeks ) {
    push @month, map { $_ || "" } @$week;
}
print Dumper( \@month );