You can't.

Maybe you should write a CGI, or a mod_perl handler?

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]

Only one program can bind and listen on one port at the same time. If you want to have "special" requests, you need to either configure Apache so it calls your script (via mod_perl or CGI, for exmaple), or you have to write your program so that it sits in front of Apache and forwards all "normal" requests to your program (via HTTP::Proxy for example).

If all you want to do is to listen to the incoming requests, I wrote Sniffer::HTTP which listens to all network traffic and extracts the HTTP requests. So maybe you can tell us more about what you want to do.

instead of having a mutiple requests( calling from 1. cli to server 2. calling from web(mod_perl) to server, i would like to have a single interface using port 80, so i can do the webwork as well as cli work using the port 80, the cli request would go to port 80 calling mod_perl and then to server.

I'm getting confused. You want a single request to do both HTTP and telnet?
"What should it profit a man, if he should win a flame war, yet lose his cool?"

You'll be able to get away with running many httpd's if you use a reverse proxy, or virtual hosts....

But if the CLI you seek is a shell, via ssh or otherwise, you may be tough out of luck... as someone along the way may be transparently proxying your requests anyway...

You may be able to run your sshd on port 443, the https port (since https is not allowed to be proxied/cached)

Bind Server code


#!/usr/bin/perl 


use IO::Socket;

sub Start
{
        $sock = new IO::Socket::INET (LocalAddr => 'xxxx',
                                      BindPort => 80,
                                      Proto     => 'tcp',
                                      Listen    => 10);
        die "$!" unless $sock;

print "Starting Xtools\n";

 my $new_sock = $sock->accept();

 while(<$new_sock>)
 {
    print $_;
 }

 close($sock);
}

Start();
1;
[download]

The client Code


#!/usr/bin/perl 

use IO::Socket;
$document = "@ARGV";
print "\n";
$EOL = "\015\012";
$BLANK = $EOL x 2;
my $host = "indrmlnx02";
my $sock = new IO::Socket::INET (
                                    PeerAddr => $host,
                                    PeerPort => http(80),
                                    Proto => 'tcp',
                                 ); #or die "Could not create socket: 
+$!\n" unless $sock;
  #print $sock "Hello there!\n";
  unless ($sock) {
      die "cannot connect to http daemon on $host"
  }

  $sock->autoflush(1);

        print "-------- \n";
        print $sock "hello";
        #print $sock "GET $document HTTP/1.1" . $BLANK;
        #while ( <$sock> ) { print }
        close $sock;
  #close($sock);
[download]

when i try the above code i get no errors, but when i stop the server and run the client i get error, cannot connect to http daemon on xxxx at xxxx.pl line xx.
and i don't c the print's data, and no idea where it is going.

You can’t bind to a port more than once. It’s not possible, no matter how often you ask. There’s no way to do it.

Makeshifts last the longest.

Not sure whether this is of any help in your particular situation, but you can bind to the same port on a single interface by giving said interface several IP addresses. This could be either several external IP addresses or several internal addresses in the 127.0.0.0/24 range. So you could have your web server bind to port 80 on 127.0.0.1 and have your RPC service bind to port 80 on 127.0.0.2 (ditto for two external addresses). If your intention is to get around some firewall restrictions by using port 80 for telnet then this would work (albeit it may be a very bad idea).