### 
sub GetDate { 
### 
    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); 
    $mon = $mon+1; 
    $mon = "0$mon" if ($mon < 10); 
    $mday = "0$mday" if ($mday < 10); 
    $year = ($year % 100); 
    $year = "0$year" if ($year < 10); 
    $date = "$mon.$mday.$year"; 
}

%months = ( 
         January => 31, 
         # ect. 
);

use Time::Local; 
  
my $year = 2001; 
my $yday = 100;  # or (localtime)[7], for the actual number 
my $beginning = timelocal( 
  0,0,12,  # represents noon 
  1, 0, $year - 1900  # represents Jan 1, $year 
); 
  
my $seconds_to_now = 86400 * $yday; 
my @data = localtime($seconds_to_now + $beginning);