Binary clock in Perl.