| Current Path : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/qclient.pl |
use IO::Socket;
my $socket = IO::Socket::INET->new(
'Type' => SOCK_STREAM,
'PeerPort' => '1234',
'PeerHost' => 'localhost');
$socket->send("Hello world\n");
$socket->recv($erg,2);
print $erg . "\n";
$erg = <$socket>;
$erg = <$socket>;
print $erg;
$socket->shutdown(2)