use Tk;
use GD;
use Image::Magick;
use Image::Size;

my $imageFile = "/home/student/Sonic_4_hero_version_2.jpg";


my $image = new Image::Magick;

my ($x, $y) = imgsize($imageFile);

printf "$x..$y";