Image::Imlib2ではまる

    my $image = Image::Imlib2->load($upload_target);
    if($image->width > $width){
        $image->create_scaled_image($width,$height);
        $image->save($profile_image);
    }

で動作しなかった（正しくはサイズが変わらない）

    my $image = Image::Imlib2->load($upload_target);
    if($image->width > $width){
        my $image_scaled = $image->create_scaled_image($width,$height);
        $image_scaled->save($profile_image);
    }

でリサイズできた。　1時間以上はまる