use strict;
use warnings;
use File::Tail;
use POSIX ();

my $filename = POSIX::strftime('ServerLog(%m-%d-%Y).log', localtime );
print "\$filename = <<<$filename>>>\n";

my $log = "D:\\ServerTools\\Logs\\$filename";
print "\$log = <<<$log>>>\n";

my $file = File::Tail->new($log);

while( defined( my $line = $log->read ) ) {
  print "\$line = <<<$line>>>\n";
}

unlink $log or die $!;

##</code><code>##

while( defined( my $line = $file->read ) ) { ...