1#!/usr/bin/env perl
2use Time::HiRes qw(sleep);
3$|++;
4$A=0;
5$F=0.1;
6while (1) {
7 $A == 628318 ? $A=0 : ++$A;
8 ($R, $B, $G) = map { sin($F*$A + $_) * 127 + 128 } qw(0 2 4);
9 printf "\033]10;#%02x%02x%02x\007", $R, $B, $G;
10 sleep 0.01;
11}
12