#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print "Content-type: text/html\n\n";
# ------------------------------------------------------------ #
$image = param('pic');
if ( (!defined $image) || (!$image) ) {
$image = 'repaint23.jpg' ;
}
# ------------------------------------------------------------ #
$image = './pics/'. $image;
use Image::Size;
($globe_x, $globe_y) = imgsize($image);
# ------------------------------------------------------------ #
print qq(
Making Trucks with C-Pod
);
# ------------------------ #
$image = $globe_x = $globe_y = undef;
# EOF