#!/usr/local/bin/perl5

use Turtle;

$turtle = Turtle->create();

$turtle->color('red');
$turtle->width(3);

$r = 40;
$turtle->color('none');
$t = 0;
$turtle->move($r*sin($t),$r*cos($t));
$turtle->color('black');
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));
$t += 0.2;
$turtle->move($r*sin($t),$r*cos($t));

$turtle->MainLoop();
