my ($prefix, $filepath) = split '/', $path, 2;

# ...

  @names = grep m!\A/?\Q$filepath\E(?:/.*)?\z!s, @names;

  if(@names == 1) {
    require Archive::Tar;
    # ...
    exit 0
  }

  {
    my %choices = ();
    # ...