<#!/usr/bin/perl use warnings; use strict; use Imager; my $file = shift; my $img = Imager->new(); $img->open(file=>$file) or die $img->errstr(); my $newimg = $img->convert(preset=>'grey'); $newimg->write(file=>'gray.jpg');