This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor S_usage() to take 0 parameters and exit directly().