sub path_info {
    # ....
    # hack to fix broken path info in IIS
    $self->{'.path_info'} =~ s/^\Q$ENV{'SCRIPT_NAME'}\E// if $IIS;
}