#!/usr/bin/perl use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new( PeerPort => 4095, PeerAddr => 'localhost', Proto => 'udp', Broadcast => 1 ) or die "Can't bind : $@\n"; $sock->send("<1> sungo: pie");
#!/usr/bin/perl use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new( PeerPort => 4095, PeerAddr => 'localhost', Proto => 'udp', Broadcast => 1 ) or die "Can't bind : $@\n"; $sock->send("<1> sungo: pie");