in reply to Draw a Square With Perl!

Neat, although as has been pointed out, it can indeed be condensed a lot.

} until ($repeaty ==); #corrected by Athamasius

You forgot the zero after the == there -- and Athanasius may object to the non-standard spelling of his name, too. :)