print "Zuhl vilka tudor!\n";
$| = 1; @tits = ("(. )(. )  ", "( . )( . )", "  ( .)( .)", "( . )( . )"); while (1) { for (0..$#tits) { print "\r$tits[$_]"; select undef, undef, undef, 0.4; } }