#system "convert -trim -geometry 400x $source $image";
system qq{convert -fill white -draw "color 1,1 floodfill" -trim -geometry 400x $source $image};
#system "convert $image -scale 100x100 -gravity center -background white -extent 100x100 $thumb";
#system "convert -trim -geometry 400x $source $image";
system qq{convert -fill white -draw "color 1,1 floodfill" -trim -geometry 400x $source $image};
#system "convert $image -scale 100x100 -gravity center -background white -extent 100x100 $thumb";