package c; use vars qw($AUTOLOAD); use c::stuff; sub AUTOLOAD { $AUTOLOAD =~ /::(.*)/; goto &{$c::stuff::{$1}}; } 1;