perl -MGD -e"$im = new GD::Image(100,100);open $fh,'>','out.jpg';binmode $f; print $fh $im->jpeg"