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]
