sub mLeftIndex
       if ($Request->item("Tab")->item() eq "Help")
      {
    my $content = '<leftIndex>';
    if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/
+ ) {
        my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'c:\Suppor
+tWeb\NerfHerder\Content\HELP\PRO\TOC.html' : 'c:\SupportWeb\NerfHerde
+r\Content\HELP\STD\TOC.html';
my $user_type = uc $Session->{'usrType'};

open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
        foreach my $line ( @toc_lines ) { 
            $content .= qq^<rlink tab="Help" script="frames['help_ifra
+me'].location.href='Content/HELP/$user_type/$1'" title="$3">
                    </rlink>^ if ( $line =~ /<p class="pTOC1"><a href=
+"(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
        }
        $content .= '</leftIndex>';
        
    }

and subroutine for help tab is .. 
<code>
sub tHelp
  {   
    my $str = ""; 
$str .= mLeftIndex();
if ($Request->ServerVariables("SERVER_NAME")->item=~/mlxhelp/i)
{
  my $target = ( $Session->{'usrType'} eq 'Pro' ) ? 'MLXchange%203.0%20professional_frame' : 'MLXchange%203.0%20standard_frame';
my $startpoint = ( defined $Session->{'startPoint'} ) ? $Session->{'startPoint'} : ( $Session->{'usrType'} eq 'Pro' ? 'Content/HELP/PRO/Frameset.html' : 'Content/HELP/STD/Frameset.html'  );
$str .= ($Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/i) ? shadowBox("MLXChange Help", qq^<help_iframe name="$target" startpoint="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace))) : shadowBox("Tempo User", 'hello', ($g_docWidth/5*4-(2*$g_docSpace)));
    return $str;
    }
    else
    {
       my $target = ( $Session->{'usrType'} eq 'Pro' ) ? 'Tempo_help_frame' : 'Tempo_help_frame';
my $startpoint = ( defined $Session->{'startPoint'} ) ? $Session->{'startPoint'} : ( $Session->{'usrType'} eq 'Pro' ? 'Content/HELP/TPO/default/Tempo_help-08-1.html' : 'Content/HELP/TPO/default/Tempo_help-08-1.html'  );
$str .= ($Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/i) ? shadowBox("Tempo Help", qq^<help_iframe name="Tempo_help_frame" startpoint="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace))) : shadowBox("Tempo User", 'hello', ($g_docWidth/5*4-(2*$g_docSpace)));
 return $str;
 }   
  }