#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;
my $is_Magick = 0;

eval "require Image::Magick";

if ($@) {
  # problems with GD, fall back to non-GD
} else {
  # we have GD, go for it!
  $is_Magick = 1;
}

print "Content-type: text/html; charset=ISO-8859-1\n\n";

print $is_Magick;

##</code><code>##

[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1] Deep recursion on subroutine "Image::Magick::AUTOLOAD" at\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1] \tC:/usr/site/lib/Image/Magick.pm line 42 (#1)\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1]     (W recursion) This subroutine has called itself (directly or indirectly)\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1]     100 times more than it has returned.  This probably indicates an\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1]     infinite recursion, unless you're writing strange benchmark programs, in\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1]     which case it indicates something else.\r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1]     \r
[Mon Nov 03 23:21:35 2008] [error] [client 127.0.0.1] Out of memory!