#!/usr/bin/perl
#
#

$image = $ARGV[0];
$new_image = $image;
$new_image =~ s/jpg/jpeg/;
$cmd = "convert -geometry 50% -quality 100 -rotate 90 ";
$cmd .= " $image $new_image ";

$ret = `$cmd`;
printf "ret is $ret \n";

exit 0;
