Sorry needed to reset my clock !!
"Randy5235" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Ok I am sure this is not the best way to do it (esoecially since it
doesn't
> seem to work for me!) any ideas???
> Randy5235
>
>
>
>
>
> #!/usr/bin/perl
>
> use IO::Socket;
> #get port number
> print"what port do you want to close?\n";
> $port=<STDIN>;
>
> $local = IO::Socket::INET->new(Proto=>"tcp", LocalPort=> $port,
Listen=>"1")
> or die "Can't setup\n";
> $remote = $local->accept;
> # output the address and the port we are connected to
> print "Connection from ", $remote->peerhost, ":", $remote->peerport;
> close $remote, $local;
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
