Select Code to Download

use IO::All;

...
  my ($file, $level, $message) = @_;
  $file->print($message) if $level < $DEBUG_LEVEL;
}

package Thingy;

...
  # in here we completely ignore $self and do
  # lots of manipulation of $parent
}