#!/usr/bin/perl -w

{
   package UNIVERSAL;

   use Carp;

   sub AUTOLOAD {
      carp "foo";
   }
}

bar();