Help for this page
sub verify{ my $optional; ... my $ref = shift; ... }
sub verify{ my $ref = pop; my $optional = pop; #becomes undef if only one param }