#!/usr/bin/perl -w

use strict;
#require "vt100 complilant terminal :)";

print "\033[2J";

# really start here

for( my($a,$x,$y,@s)=qw(40 1 0 0 1 0 -1);$a--;push@s,shift@s)
{ print "\033[",$x+=$s[0] ,";",$y+=$s[1] ,"H\@" for (0..$a) }