Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mageia > 5 > i586 > media > core-release > by-pkgid > c09b898b0969c4dc333ec75f4c8f0f2f > files > 19

perl-POE-Component-Server-Syslog-1.200.0-5.mga5.noarch.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
    PeerPort  => 4095,
    PeerAddr  => 'localhost',
    Proto     => 'tcp',
)
or die "Can't bind : $@\n";

$sock->send("<1> sungo: pie");