sub create_date
{
my ($sec, $min, $hour, $wday, $month, $year, $yday, $something) = localtime(time());
$curyear = $year + 1900;
$today = join "/",$wday,$month + 1,$curyear;
$daysofyear = $year * 365;
$daysthisyear = $yday;
$daystonow = $daysofyear + $daysthisyear;
}