#!/usr/bin/perl# $Id: scroller.pl,v 1.4 2005/10/30 19:44:38 simimeie Exp $# Clock Remote Control Scroller - scrolls a text on the LED displayuse strict;use Time::HiRes qw( usleep);my $cmdline = "./clockrcon ntp-clock FICKEN32 1";my $string = (" "x6).join(" ",@ARGV);for (0 .. length($string)) {	my $subs = substr($string, $_, 6);#	print ("./clockrcon ntp-clock FICKEN32 1 $subs 6\n");	system ("$cmdline \"$subs\" 4");	usleep(166667);}