short, experimental Perl image processing script