get date di perl

(seputar-programming.blogspot.com).  Bagaimanakan menentukan tanggal pada 10 hari yang lalu ? atau bagaimanakah menentukan tanggal pada 12 menit yang lalu. berikut ini adalah fungsi untuk menentukan date pada waktu tertentu  :

Penggunaan script :

anda bisa memanggil script ini dengan cara :
$date_1 = getDate();

$date_2 = getDate('10','0');  #  menentukan date time pada 10 hari yang lalu..
$date_3 = getDate('10','1');  # menentukan date time pada 10 jam yang lalu..
$date_4 = getDate('10','2');  # menentukan date time pada 10 menit yang lalu..

sub getDate
{
#DEFINISIKAN TANGGAL
my %bln= ('01','Jan','02','Feb','03','Mar','04','Apr','05','May','06','Jun','07','Jul','08','Aug','09','Sep','10','Oct','11','Nov','12','Dec');

my %blnReverse = ('Jan','01','Feb','02','Mar','03','Apr','04','May','05','Jun','06','Jul','07','Aug','08','Sep','09','Oct','10','Nov','11','Dec','12') ;

my $frm = "";
my $k ="";
my $yyyy= '';
my $yy= '';
my $mmm= '';
my $mm= '';
my $dd= '';

if(@_){
  my $ar_count= @_;
  if($ar_count > 2){print "argument only 2\n";exit;}   
  $k=$_[0];  # value (number)
  $frm = $_[1]; # (0 => hari, 1 => jam, 2 => menit) yang lalu
     if ($frm eq 0) {
      ($ss,$nn,$hh,$dd,$mm,$yy) = localtime(time-$k*86400);
     }
     elsif ($frm eq 1) {
      ($ss,$nn,$hh,$dd,$mm,$yy) = localtime(time-$k*3600);
     }
     elsif ($frm eq 2) {
      ($ss,$nn,$hh,$dd,$mm,$yy) = localtime(time-$k*60);
     }
  }else {
    ($ss,$nn,$hh,$dd,$mm,$yy) = localtime(time);
  }
  $yyyy  = $yy + 1900;
  $mm    += 1;
  $mm    = substr('0'.$mm,-2);
  $mmm   = $bln{$mm};
  $dd1 = $dd;
  $dd    = substr('0'.$dd,-2);
  $yy    = substr('0'.$yyyy,-2);
  $hh    = substr('0'.$hh,-2); 
  $mi = substr('0'.$nn,-2); 
  $ss = substr('0'.$ss,-2);
  return "$yyyy-$yy-$mmm-$mm-$dd-$hh-$mi-$ss-$dd1";
}