use Log::Dispatch::Perl;

my $dispatcher = Log::Dispatch->new;
my $channel = Log::Dispatch::Perl->new( qw(name default min_level debug) );
$dispatcher->add( $channel );

$dispatcher->alert( 'This is an alert' );
__END__
This is an alert
        Log::Dispatch::Output::log('undef','level','alert','name','default','message','This is an alert') called at /usr/local/lib/perl5/site_perl/5.8.3/Log/Dispatch.pm line 95
        Log::Dispatch::_log_to('Log::Dispatch=HASH(0xfc578)','level','alert','name','default','message','This is an alert') called at /usr/local/lib/perl5/site_perl/5.8.3/Log/Dispatch.pm line 74
        Log::Dispatch::log('Log::Dispatch=HASH(0xfc578)','level','alert','message','This is an alert') called at /usr/local/lib/perl5/site_perl/5.8.3/Log/Dispatch.pm line 22
        Log::Dispatch::__ANON__('Log::Dispatch=HASH(0xfc578)','This is an alert') called at line 7