なにがいかんのかわかんないけど、書き直してみた。

#!/usr/local/bin/perl
use strict;
use Image::Magick;

my $image=Image::Magick->new;
$image->Set(size=>'40x200');
$image->Read("gradient:#ff0000-#0000ff");
$image->Raise('3x3');
$image->Rotate(-90);

{
local $| = 1;
print "Content-Type: image/png\n\n";
$image->Write('png:-');
}