Struppi und du liegt beide falsch. Tie::Hash fehlt die Methode TIEHASH schlichtweg. Benutze Tie::StdHash oder Tie::ExtraHash, wie in der Doku angegeben, dann geht es.
package Rabbit;
use strict;
use warnings FATAL => 'all';
use Tie::Hash qw();
use base qw(Tie::ExtraHash);
1;
package main;
use strict;
use warnings FATAL => 'all';
use Rabbit qw();
tie(my %h, 'Rabbit'); # ok
Ich kriege immer Zahnschmerzen, wenn ich Leute immer wieder in dieselben Anfängerfallen tappen sehe. Es gibt keinen Grund, Perl zu schreiben, als ob es noch 1997 wär. Rat von mir als erfahrenem Programmierer: Objektpersistenz macht man mit mit KiokuDB.