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

$sock = IO::Socket::INET->new(  LocalPort => 3335,
                                Proto     => 'udp',
                                Type      => SOCK_DGRAM) 
                                or die("Socket: $!\n");

open(OSD, "| osd_cat -d 20 -p top -A center -f \"-adobe-times-bold-*-*-*-34-*-*-*-*-*-*-*\" -s 4 -O 1 -u darkslategrey")
	or die("osd_cat: $!\n");
OSD->autoflush(1);

while (<$sock>) {
	print OSD ($_);
}