##

#!perl

use CGI;
use strict;

my $q = new CGI;
print $q->header(), 
      $q->start_html(), 
      $q->h1('Print some input.'),
      $q->startform(),
      $q->textfield('foo'),
      $q->p(),
      $q->textfield('bar'),
      $q->submit(),
      $q->endform();
      
# Print w/ space
print $q->param('foo').' '.$q->param('bar');  # You can't use "" to interpolate param(), it's a function call, not a variable.
print $q->p();

# Print w/o space
print $q->param('foo').$q->param('bar');

print $q->end_html;