Image 明るくするやつ

#!/usr/bin/perl
use strict;
use warnings;
use Imager;

my $filename = shift;
my $img      = Imager->new;

$img->read( file => $filename ) or die $img->errstr;
$img->filter( type => 'contrast', intensity => 1.3 );
$img->filter( type => "autolevels", lsat => 0.001, usat => 0.001 );
$img->filter( type => "conv", coef => [ -0.1, 1, -0.1 ] );
$img->write( file => 'out.jpg', jpegquality => 100 );