#!c:/perl/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;

my $foo = new CGI;

print $foo->header;

my $id = $foo->param('id');
my $var = $foo->param('something');

print "$id<BR><BR>$var";