simple clock application using Ezkey.pm

bb-clock.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use strict;
+use Ezkey;
+use Date::Format qw/time2str/;
+
+my $sign=new Ezkey("/dev/rfcomm0");
+$sign->connect();
+
+$sign->set_mode("hold");
+$sign->create_string("1",12);
+$sign->write_text($sign->spacing(1)
+                  .$sign->color("green").$sign->extchar("right_arrow")." "
+                  .$sign->color("red")
+                  .$sign->call_string(1));
+
+while(1) {
+    my $text=time2str("%d.%H%M%S",time);
+    $sign->write_string($text);
+    sleep 1;
+}
+
+$sign->disconnect();