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