ssi demo

##

#!/usr/bin/perl

use strict;
use warnings;
use CGI::Simple;

my $q = CGI::Simple->new;
print $q->header;
my $param = $q->param('q');
print qq|$param|;

##

##

ssi demo
hi!