Where is the date subroutine? It's not in Perl or its base modules. There is, however, a localtime function that may do what you need.

It also looks like you've asked a remarkably similar (and equally ungrammatical) question here.