Added perimeter of a square

Unlisted in modes; code: t1