if (-e $fn) { system("del $fn"); } #### my $dir = getcwd; my $fn=$dir."\\Logs\\temp.log";