Select Code to Download

build_url($account, [ $transaction, [ $location, ] ] $fname, $lname);

sub build_url {
   my $lname = pop;
...
   my ($account, $transaction, $location) = @_;
   ...
}

sub build_url {
   my $account     = shift;
...
   my $lname       = shift;
   ...
}

sub build_url {
   splice(@_, 1, 0, (undef)x(5-@_))
   my ($account ,$transaction, $location, $fname, $lname) = @_;
   ...
}