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

##</code><code>##

sub {some_func($this, $that, @_)}

##</code><code>##

some_func_c($this, $that)