#!/usr/bin/perl

use GD;  # Modul GD mozesz pobrac z http://www.perl.com/CPAN/modules

# Utworzenie rysunku.
my $gif = new GD::Image(100, 100);

# Alokacja kolorow.
my $bialy = $gif->colorAllocate(255, 255, 255);
my $czerwony = $gif->colorAllocate(255,   0,   0);

# Kolor tla.
$gif->transparent($bialy);

# Okrag.
$gif->arc(50, 50,        # Srodek x, y.
          30, 30,        # Szerokosc, wysokosc.
          0, 360,        # Poczatkowy i koncowy kat.
          $czerwony)     # Kolor.

# Zapisanie rysunku.
open(GIF, ">okrag.gif") or die "otwarcie pliku nie powiodlo sie: $!\n";
binmode GIF;
print GIF $gif->gif;
close GIF;

