use strict;
use warnings;
use CGI qw(param);

my $webobj = WebObj->new();
$webobj->template(param('template'));
$webobj->minscale(param('minscale'));

print $webobj->template,$/;
print $webobj->minscale,$/;

package WebObj;

use strict;
use warnings;
use Class::MethodMaker
   new     => 'new',
   get_set => [qw(template minscale)],
;