Select Code to Download

 sub _log {
    my $self    = shift;
    my $level   = shift;
...
    $body .= sprintf( "[%s] %s", $level, $message );
    $self->_body($body);
}