#!/usr/bin/perl -w
use strict;
use Class::Date;

my $date = new Class::Date [`date +%Y`, `date +%m`, 1, 0, 0, 0];

my $curMonthEpoch = $date->epoch;
my $prevMonthEpoch = $curMonthEpoch - 1;

print "Last Date of Prev Month=".`date --date='\@$prevMonthEpoch' +%d`;