Select Code to Download

sub Log::Dispatch::warn {
  my $self = shift;
  $self->warning(@_);
}

#!/usr/bin/perl -l
use strict;
...
$o->buzz('world');

__END__