Select Code to Download

use LWP::UserAgent;
use Image::Magick;  
...
$image->Scale(width=>216, height=>163);
$image->Set(quality=>90);
$image->Write("$PICDEST/TH_$PICNAME");