use strict;
use Imager;

my $img = Imager->new;

# ある画像を開き...（type を指定しない ＝ 自動認識）
$img->read( file => 'nya.png' )
    or die $img->errstr;

# 縦か横が160pxになるように縮小し...
# （新しい Imager オブジェクトが返るので、それで元のを上書き）
$img = $img->scale(
    xpixels => 160,
    ypixels => 160,
);

# 弱めにシャープネスフィルタをかける
$img->filter( type => 'unsharpmask', stddev => 1 )
    or die $img->errstr;

# Jpeg、画質 90% で保存
$img->write( file => 'nya-sharpen.jpg', type => 'jpeg', jpegquality => 90 )
    or die $img->errstr;