#!/usr/bin/perl
BEGIN {
  require POSIX;
  local $SIG{__DIE__} = sub { 
    print "Content-type: text/plain\n\n@_";
    POSIX::_exit(0); #Needed to prevent HTTP/500 Error
  };
  require Image::Magick;
  Image::Magick->import();
}