package HTTP;
use overload '%{}' => sub {die "AAAAARGH!\n"};

package main;
use base 'HTTP';

sub print_hash {
    my $self = shift;
    keys %$self;
}

my $m = bless{},'main'; # Eine Instanz meiner Klasse

$m->print_hash();