my $snickle = CGI -> new;
    package Gonbagger;
    sub one   {bless [] => "Fumble"}
    sub two   {one}
    sub three {two}
    sub four  {$snickle}

##</code><code>##

    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]
    }