package mypck;

sub new
{
    my $class = shift; 
    return bless $self; 
}

sub myimport ()
{
    my $self = shift;
    my $twigimport= new XML::Twig( TwigHandlers =>
                                    { 'dataroot' => \&$self->myhandler} # hier muss die Referenzt auf myhandler übergeben werden.
                                  );
    $twigimport->parsefile( $filename );
}
    

sub myhandler
{
    my $self = shift;
    my( $twig, $elem)= @_;
    my @aAVI = $elem->root->children; 
    [...]
}