Select Code to Download

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

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

some_func_c($this, $that)