সম্পাদনা
my @date = localtime; print $date[5] + 1900;
পূর্বরূপ
