#!/usr/bin/perl

{

        package UNIVERSAL;
         sub AUTOLOAD
        {
                print "Calling from Universal\n";
        }
        1;
}

{
        package A;
        our $var=0;
        1;
}

{
        package Bn;
        use base qw(A);
        #sub AUTOLOAD
        #{
        #        print "Calling from Package Bn\n";
        #}
        1;
}

{
        package C;
        use base qw(Bn);
        1;
}
C->hai();