PKG::safe_sub( "PKG", $other_args);

##</code><code>##

   PKG::safe_sub( $other_args);
   safe_sub PKG $other_args;

##</code><code>##

   shift if ref $_[0] eq "PKG" or $_[0] eq "PKG";