#!/usr/local/bin/perl5

use Turtle;

$turtle = Turtle->create();

$turtle->color('none');
$turtle->move(100,50);

$turtle->color('black');

for($i=0;$i<100;$i++) {
    $turtle->turn(10);
    $turtle->forward(10);
}

$turtle->MainLoop();
