BEGIN{
  if (exists $::{AUTOLOAD}) {
    print "exisa\n";
  } else {
    print "no-exisa\n";
  }
}
sub AUTOLOAD{}
BEGIN{
  if (exists $::{AUTOLOAD}) {
    print "exisa\n";
  } else {
    print "no-exisa\n";
  }
}