a rough & ready Perl script for PerlMagick API