Select Code to Download

sub verify{
  my $optional;
...
  my $ref = shift;
  ...
}

sub verify{
  my $ref = pop;
  my $optional = pop; #becomes undef if only one param
}