binclock

SUBMITTED BY: Guest

DATE: Dec. 16, 2013, 8 a.m.

FORMAT: Perl

SIZE: 108 Bytes

Raw Download

HITS: 640

Report

perl -e 'for(;;){@d=split("",`date +%H%M%S`);print"\r";for(0..5){printf"%.4b ",$d[$_]}sleep 1}'