package Shell; sub AUTOLOAD { $AUTOLOAD =~ s/^.*:://; # Strip out the package name from the sub's name (in this case Shell::) `$AUTOLOAD @_` }