Select Code to Download

sub prototyped($_;$)
{
  # Here $_[0] is a compulsory argument
...
  # $_[1] defaults to $_
  # $_[2] may not even exist
}

sub unprototyped
{
  goto &unprototyped @_, $_ unless @_ > 1;
  # See comments in previous exemples
}

sub unprototyped
{
  push @_, $_ if @_ < 2;
...
  $_ = $_[-1];
  # Return value here
}

use v5.14;

sub f2
...
__DATA__
Everyone
Perlmonks