!/usr/local/bin/perl

  print "Content-type: text/html\n\n" ;
  
  print "<pre>\n" ;

  eval{ use Image::Magick ;};
  print "$@\n" ;

  eval{ my $image = Image::Magick->new ;} ;
  print "$@\n" ;
  
  print "</pre>\n" ;

##</code><code>##

#!/usr/bin/perl

  print "Content-type: text/html\n\n" ;
  print "Hello!\n" ;