use IO::All;

my $file = io("somefile");

log(5, $file, "some error");
sub log
{
  my ($file, $level, $message) = @_;
  $file->print($message) if $level < $DEBUG_LEVEL;
}