#!/usr/local/bin/perl -w
use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new(
                                 Proto => 'tcp',
                                 LocalPort => 8080,
                                 Listen    => SOMAXCONN,
                                 Reuse     => 1
                                );

my $data = 'Silly test string.';

{
    local $\ = qq(\0);
    print $sock $data || die "What happened? $!";

}