sub get_paths_from_url {
  my $path = $ENV{'PATH_INFO'};
  return if not $path;
  $path =~ s|^/||;
  $path =~ s|/$||;
  my @paths = split('/',$path);
  return \@paths;
}