#!/usr/bin/perl -w

package ABC::XYZ;

use strict;
use warnings;
use vars qw($AUTOLOAD);

sub AUTOLOAD {
  print "package: ", __PACKAGE__, " $AUTOLOAD\n";
}

package def;

use strict;
use warnings;
use vars qw($AUTOLOAD);

sub xyz {
  print "xyz\n";
}

sub AUTOLOAD {
  print "package: ", __PACKAGE__, " $AUTOLOAD\n";
}

package main;

use strict;
use warnings;

my $m = "def::xyz";

ABC::XYZ->$m;