#!/usr/bin/perl -w

use Tk;
$top = MainWindow->new();
$canvas = $top->Canvas(width => 600, height => 490)->pack();
# Draw a set of circles along an archimedean spiral
# The centers of these circles move along the spiral 
# (radius of spiral = constant * theta)