$ perl -le 'print prototype q{CORE::getpwnam}' $