print $log_fh "doing something..."; if (do_something(...)) { print $log_fh "suceeded\n"; } else { print $log_fh "failed\n"; }