#!/usr/bin/perl -w

use strict;
use GD;
use GD::Text;

my $image = new GD::Image( 320, 160 );
my $black = $image->colorAllocate( 0, 0, 0 );
my $text = new GD::Text->new( $image, 
                              font => gdLargeFont,
                              text => "Perl Coder",
                              color =>  "white",
                              valign => "top",
                              halign => "center",
                             );

$title->draw( IMAGE_SIZE / 2 TITLE_Y_COORD );
$image->filledRectangle( 15, 15, 150, 150, $black );

open( IMAGE, ">pc1.png") || die "Couldn't open file: $!\n";
binmode( IMAGE );
print IMAGE $image->png();
close IMAGE;