my ($y, $m, $d) = (substr($ARGV[0],0,4),substr($ARGV[0],4,2),substr($ARGV[0],6,2));
my $ld = (31,28,31,30,31,30,31,31,30,31,30,31)[$m-1];
if (($m-1) == 1){$ld++ if(!($y%100) && !($y%400))||(($y % 100)&&!($y%4))}
print "$ARGV[0] is NOT a month end day\n" unless $d eq $ld;