print "Content-type: image/gif\n\n";
binmode STDOUT;
print $image->Write('gif:-');

sub test {

$ENV{PATH} .= q{:/home/bn123/ghostscript/bin};

my ($date) = localtime;
use Image::Magick;

my $image = Image::Magick->new();
print $image->Set( size => "100x50");
print $image->ReadImage('xc:white');
print $image->Colorize( fill => 'red' );
print $image->Border( width => 5, height => 5, fill => 'blue' );
print $image->Raise( width => 5, height => 5, raise => 'True' );
print $image->Wave( amplitude => 5, wavelength => 30 );

$image->Annotate(
text => $date,
fill =>"black",
x =>15,
y =>30,
pointsize=>14,
font =>"Tahoma");


print "Content-type: image/gif\n\n";
binmode STDOUT;
print $image->Write('gif:-');


}

#!/usr/bin/perl -w

use strict;
use Image::Magick;
use CGI;

my $q = CGI->new();

my $image = Image::Magick->new();
$image->Set( size => "100x50");
$image->ReadImage('xc:white');
$image->Colorize( fill => 'red' );
$image->Border( width => 5, height => 5, fill => 'blue' );
$image->Raise( width => 5, height => 5, raise => 'True' );
$image->Wave( amplitude => 5, wavelength => 30 );

my $date = localtime;

$image->Annotate(
text => $date,
fill =>"black",
x =>15,
y =>30,
pointsize =>14,
font =>"Tahoma"
);

print $q->header('image/png');

print $image->Write('png:-');

use Image::Magick;

my $image = Image::Magick->new();
print $image->Set( size => "100x50");
print $image->ReadImage('xc:white');
print $image->Colorize( fill => 'red' );

$image->Annotate(
text => $date,
fill =>"black",
x =>15,
y =>30,
pointsize=>14,
font =>"Charter");


my $path = "/home/bn123/bn123.net/www/test";
my $url = "http://www.bn123.net/test";

$image = Image::Magick->new;
my $cover = $path . "/AddImages/" . $date . ".gif";
my $w = $image->Write($cover);
return $w if $w;
undef $image;

sub _th_old_pic {
# --------------------------------------------------------------------------
#

my $self = shift;

my $picture = shift;

my $image_path = $picture;

my $image_path_png = "th_" . $image_path . ".png";

my $resized = $htdocs . "th_" . $image_path . ".png";

if (-e $resized) {

return $image_path_png;
}

else {

my ($image,$x);

$image = Image::Magick->new();

$x = $image->Read(filename =>"$htdocs/$image_path");
$x = $image->Resize(geometry =>'150x75');

$x = $image->Write(filename =>"$htdocs/th_$image_path.png");

return $image_path_png;
}

}