#!/usr/bin/perl

use warnings;
use Turtle;

my $turtle=Turtle->new;

$turtle->setColor('tomato');
$turtle->setLineWidth(6);
$turtle->setDirection(36);

for(0..4)
{
	$turtle->forward(144);
	$turtle->rotate(144);
}

$turtle->writePicture('TurtleStar.png', 'pngalpha');