#!/usr/bin/perl

use POSIX;

($month, $year) = (12, 2005);

$lastday = POSIX::mktime(0,0,0,0,$month-1+1,$year-1900,0,0,-1);
@_ = localtime($lastday);
print $_[3], "\n";