#!/usr/bin/perl
#### #!/bin/perl5.005_03 -w
use strict;
use CGI;
sub urlencode{
my($esc) = @_;
$esc =~ s/^\s+|\s+$//gs;
$esc =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
$esc =~ s/ /\+/g;
$esc =~ s/%20/\+/g;
return $esc;
}
my ($query, $contentpage);
$query = new CGI;
$contentpage = $query->param('p') . '/' . $query->param('c');
print "Content-type: text/html\n\n";
print <<"EOFS";
Stichting Spoetnik - humanitaire hulp aan Oekraïne
EOFS
exit;