Select Code to Download

#normal $r from my POV
sub handler {
...
%args=$r->args;
my $sitename=$args{sitename};
}

#$apr
sub handler {
...

my $sitename = $apr->param('sitename');
}

package PP::Uploads;
...
  return OK;
};
1;