#!/usr/bin/perl -w
use strict;
use Image::Magick;

my $file="path/to/yourfile.jpg"

my $image = Image::Magick->new;
$image->Read($file);

my ($x,$y) = $image->Get('width', 'height');