system("convert xc:white -geometry 200x200 output.jpg");

##</code><code>##

my $image = new Image::Magick(geometry => '200x200');
$image->Read('xc:white');
$image->Write('output.jpg');

##</code><code>##

my $original = new Image::Magick();
$original->Read('original.jpg');
$geometry = $original->Get('geometry');