If I were you I would try

use POSIX();
my $filename = POSIX::strftime('ServerLog(%Y-%m-%d).log', localtime );
[download]

and spend some time reading perlintro

Good luck