![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
#!/usr/bin/perl
use strict;
my $x = shift;
my $o = shift;
$o ||= ' ';
$x ||= '*';
while (1){
select (undef, undef, undef, 0.5);
my $t = `date +%s`;
my $s = sprintf "%b\n", $t;
$s =~ s/1/$x/g;
$s =~ s/0/$o/g;
print $s;
}
Run on a unix machine, pick one-character arguments if desired, pipe through uniq.
ETA: 08:37:04 on Saturday morning, Eastern Time.