my $log = "D:\\ServerTools\\Logs\\ $filename";
my $file = File::Tail->new(name=> $log );
while(defined($line= $log->read)) {

Well, $log is a filename (a string), $file is a File::Tail object, but you try to read from $log

Maybe you want

$filename = "$directory\\$filename";
my $log = File::Tail->new( name=> $filename );
[download]

Its easier to keep track of what each variable represents if you use meaningful variable names

$log_filename , $log_filetail, $logreader, $coffebreak