...in program...
$MSG->trace( "my message");

...in module..
sub trace    { shift->_message( TRACE, @_ )   }
sub channels_by_fh    { map { $_->[0] } @{ shift->{handles} } }
sub channels_by_file  { () }
sub channels_by_email { () }
sub channels_by_level { grep { $_[0]->level( $_[1] ) } $_[0]->channels }
	
sub _message 
	{
	my $self  = shift;
	my $level = shift;
		
	foreach my $channel ( $self->channels_by_level( $level ) )
		{
		print $channel $self->tag($level) . "@_" . "\n";
		}
	
	}