>perl -w tmp.pl
Use of uninitialized value in print at tmp.pl line 25.
me

##</code><code>##

sub Show_Me {
    my ($self) = @_;

    return $self->_Print_Me(); # <--
}