my $dir = getcwd; my $fn=$dir."\\Logs\\temp.log";