#!/usr/bin/perl
use CGI qw(:standard);

use Image::Size;

my @temp=();
my $tmp="";

@temp = imgsize("boy1.jpg");

print header();

foreach $tmp(@temp)
print "$tmp";