send an art-net udp packet (ArtDMX)

artnet.pl

#!/usr/bin/env perl
use IO::Socket::INET;


my $sig = 'Art-Net'.pack('x');
my $op = pack('v', 0x5000);
my $ver = pack('n', 14);

my $seq = pack('x');
my $phy = pack('x');

# "universe"
my $port = pack('n', 0);

my @channels = (0) x 512;
$length = pack('n', scalar @channels);

# set some stuff!
$channels[11] = 128;
$channels[12] = 255;
$channels[13] = 255;
$channels[15] = 4;

$channels[14] = 2;
$channels[16] = 0;


my $data = pack('C*', @channels);
my $message = $sig.$op.$ver.$seq.$phy.$port.$length.$data;



my $sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 6454,
    PeerAddr => '192.168.10.90',
) or die "Could not create socket: $!\n";

$sock->send($message) or die "Send error: $!\n";