(my $module) = $ENV{PATH_INFO} =~ m!^/([^/]+)/;
# mind this regex, I'm coming back at it in a few secs!