package Lioger;
    use Exporter ();
    @Lioger::EXPORT = qw /lioger1/;
    @Lioger::ISA    = qw /Exporter/;

    sub lioger1 {
        return if @_;
        my $x = bless [] => __PACKAGE__;
        $x [0] = $x;
    }
    sub lioger2 {
        ${$_ [0]} [0]
    }