#!/usr/bin/perl
use strict;
use Time::Local;
#use bignum(p => -3);

my $key='121005';
print $key." ==> ".convtime($key)."\n";

sub convtime {
 my @months=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 my @dow=qw{Sun Mon Tue Wed Thu Fri Sat};
 my $date=@_[0];
 my $year=substr $date,0,2;
 $year += 100;
 my $month=substr $date,2,2;
 $month -= 1;
 my $day=substr $date,4;
 my $gmt = timegm(0,0,0,$day,$month,$year);
 my @gmtime = gmtime($gmt);
 my $convstring=$dow[$gmtime[6]]." ".$months[$gmtime[4]]." ".$gmtime[3];
 return $convstring
}