#!/usr/bin/perl
use warnings;
use strict;
use GD;

my $image = GD::Image->newFromJpeg("frontpage.jpg");
my ($width,$height) = $image->getBounds();
print "width->$width\nheight->$height\n";
exit;