creeping chaos in the title bar.

u-nya-.pl

#! /usr/bin/env perl
# -*- coding:utf-8 -*-

if (fork()) {
    exit;
} else {
     $| = 1;
    while(1) {
        print "\e]2; (」・ω・)」うー! \e\\";
        sleep 1;
        print "\e]2;（／・ω・）／にゃー \e\\";
        sleep 1;
    }   
}