#! perl -sw
use strict;
use Time::HiRes qw[ time ];

binmode STDOUT;

while( 1 ) {
    my $packet = pack 'd', time;
    syswrite( STDOUT, $packet );
    sleep 30;
}