#!/usr/bin/perl -wT

use strict;
use GD;
no strict 'subs';

open (PNG,"kyla_smile.png") || die "$!";

my $image = newFromPng GD::Image(PNG) || die "$!";

close PNG;

my $white = $image->colorAllocate(255,255,255);
my $black = $image->colorAllocate(0,0,0);

$image->arc(50,50,95,75,0,360,$black);
$image->fillToBorder(50,50,$black, $white);
$image->arc(60,95,25,25,0,360,$black);
$image->fillToBorder(60,95,$black, $white);
$image->arc(70,125,20,20,0,360,$black);
$image->fillToBorder(70,125,$black, $white);
$image->string(gdMediumBoldFont,10,45,"I Love Dad!",$black);

print "Content-type: image/png\n\n";

binmode STDOUT;

print $image->png;