#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use URI::Escape;


require "call_b.pl";

my $go_menu = &menu;

#print "Content-type: text/html\n\n";

#print $go_menu;


##</code><code>##

#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use URI::Escape;

my $address;

sub menu {

print qq|
    <td>
      <ul> 
        <li><a href="home.pl?contatc=${ uri_escape( $address ) }&amp;selected_tab=a" target="_top">home<b></b></a></li> 
        <li><a href="home.pl?contatc=${ uri_escape( $address ) }&amp;selected_tab=b" target="_top"><span></span>about<b></b></a></li> 
        <li><a href="home.pl?contatc=${ uri_escape( $address ) }&amp;selected_tab=c" target="_top"><span></span>contact<b></b></a></li>               
      </ul>
    </td>
|;

}
1;