use strict;

package Lib::Vars;
use constant HI => "HO";

package main;
use vars qw/ $AUTOLOAD /;

print "HI", &HI, "\n";;

sub AUTOLOAD {
    my $sub = $AUTOLOAD;
    $sub =~ s/\w*::(\w*?)$/$1/;
    $sub = "Lib::Vars::$sub";
    goto &$sub;
}