my $pi = $cgi->path_info;
my (undef, @args) = split m{/}, $pi;