1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Aktive Internetverbindungen (Nur Server)
Proto Recv-Q Send-Q Local Address Foreign Address State User Inode PID/Program name
tcp 0 0 0.0.0.0:11740 0.0.0.0:* LISTEN 0 992 2339/codesyscontrol
tcp 0 0 0.0.0.0:1217 0.0.0.0:* LISTEN 0 1013 2339/codesyscontrol
tcp 0 0 0.0.0.0:4840 0.0.0.0:* LISTEN 0 1019 2339/codesyscontrol
tcp 0 0 0.0.0.0:22 0.0.0.0:* LISTEN 0 5054 2228/sshd
udp 0 0 0.0.0.0:58297 0.0.0.0:* 0 4959 1841/dhclient
udp 0 0 0.0.0.0:43460 0.0.0.0:* 0 8194 2339/codesyscontrol
udp 0 0 0.0.0.0:68 0.0.0.0:* 0 4980 1841/dhclient
udp 0 0 192.168.2.50:123 0.0.0.0:* 0 7330 2180/ntpd
udp 0 0 127.0.0.1:123 0.0.0.0:* 0 7329 2180/ntpd
udp 0 0 0.0.0.0:123 0.0.0.0:* 0 7325 2180/ntpd
udp 0 0 0.0.0.0:1202 0.0.0.0:* 0 1022 2339/codesyscontrol
udp 0 0 0.0.0.0:1203 0.0.0.0:* 0 8193 2339/codesyscontrol
udp 0 0 192.168.2.255:1740 0.0.0.0:* 0 990 2339/codesyscontrol
udp 0 0 192.168.2.50:1740 0.0.0.0:* 0 989 2339/codesyscontrol
udp 0 0 0.0.0.0:56024 0.0.0.0:* 0 1023 2339/codesyscontrol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
my $socket = IO::Socket::INET -> new( LocalPort => 1202,
Proto => 'udp',
Type => SOCK_DGRAM)
or die "Keine Verbindung: $!\n";
my $hello;
$socket->recv($hello, 1024, 0);
print $hello."\n";
close($socket);