#!/usr/local/bin/perl5

use Turtle;

$turtle = Turtle->create();

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

$turtle->color('none');
$turtle->move(100,100);
$turtle->color('black');
$turtle->move(10,00);
$turtle->move(00,10);
$turtle->color('green');
$turtle->move(-10,00);
$turtle->move(00,-10);


$turtle->MainLoop();
