package Usus;

use strict;
use warnings;

sub new{
    my $class = shift;
    bless{}, $class;
}

my $pm = sub{
    my $self = shift;
    die "Aha, eine private Methode\n";
};

sub hack{
    my $self = shift;
    $self->$pm(@_);
}

package main;

use strict;
use warnings;

my $u = Usus->new()->hack;