Help for this page

Select Code to Download

Select or download this

sub get_date {
        my @time=(localtime)[3..5];
...
        }
        "$time[2]$time[1]$time[0]";
}