sub AUTOLOAD {print $AUTOLOAD}
*foo = bar;
foo ();