#!/usr/bin/perl -w
#
# October 2010 kari\@debianindonesia.org
# GNU/Linux Version
#

use strict;
use diagnostics;

###################################
# Scalar variables
###################################
my $naya_year_born = "2009";
my $date_today;
my $recent_old_year;
my $recent_old_month;
my $recent_month;

###################################
# Hash variable
###################################
my %months;
####End of variables definition#####

%months =(Jan => 1,
          Feb => 2,
          Mar => 3,
          Apr => 4,
          May => 5,
          Jun => 6,
          Jul => 7,
          Aug => 8,
          Sep => 9,
          Oct => 10,
          Nov => 11,
          Dec => 12);

##########################################################
# Output of "date" command : Sun Oct 31 10:31:07 WIT 2010#
##########################################################

$date_today = `date`; # backquotes                                                           
  my ($Day, $Month, $Date_, $Time_, $Zone, $Year) = split(/\s+/,$date_today); 
      
      if ($months{$Month} < $months{Aug}){  
         #$recent_old_year = join (",",(($Year-1)-$naya_year_born),((12)+($months{$Month}-$months{Aug}))); 
         $recent_old_year  = (($Year-1)-($naya_year_born));
         $recent_old_month =((12)+($months{$Month}-$months{Aug})); 
            if ($recent_old_year == 0){
                print "Myisha Kallista Abinaya telah berumur $recent_old_month bulan \n"; 
            } 
                else { 
                     print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun, $recent_old_month bulan \n"; 
                }
      }
        else { $recent_old_year = join (",",$Year-$naya_year_born,$months{$Month}-$months{Aug});
               print "Myisha Kallista Abinaya telah berumur $recent_old_year tahun \n";
        }
__END__