Perl script for processmonth