#!/usr/bin/perl -w
while ( 1 )
{
  print "\e[".$_."q" and sleep 1 for ( 0..3 );
}