(my $log_file = $0 )=~ s/pl$/log/;