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