#!/usr/bin/perl -w

use Socket;

socket( CLIENT, PF_UNIX, SOCK_DGRAM, 0 ) or die;
connect( CLIENT, sockaddr_un( "/tmp/lamp-display-socket" )) or die;

select CLIENT;
$|=1;

$message = pack "CCC", 0, $ARGV[0], $ARGV[1];
print CLIENT $message;

