#!/usr/bin/perl -w
 
use strict;
use POSIX;
use Time::Local;
 
my $time = '31Nov00';
 
my ($day, $mon, $year) = ($time =~ /^(\d+)([A-Za-z]+)(\d+)$/);
 
my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my $i;
my $mon_num;
for($i=0; $i<=$#months; $i++){
    if ($mon eq $months[$i]) {
        $mon_num = $i;
        last;
    }
}
 
my $epochsecs = timelocal(0, 0, 0, $day-1, $mon_num, $year);
my $tomorrowsecs = $epochsecs + 86400;
my @tomorrow = localtime($tomorrowsecs);
my $timestr = POSIX::strftime("%d%b%y", 0, 0, 0, @tomorrow[3..5]);
 
print $timestr;
 
exit;
[download]