my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $currSysDate;
my $currYear;
my $day;
$year = $year + 1900;
$mon = $mon+1;
$day = $mday;
if($mon <10){
	$mon ="0$mon";
}
if($day <10){
	$day ="0$day";
}
$currSysDate = join("/",$mon,$day,$year);
print "$year \n";
print "$currSysDate \n";