NeoNox [OFF]А где его можно скачать? а то на CPAN не нашел...
[/OFF]
А я так думаю, что гораздо банальнее:
#!/usr/bin/perl -w
use stirct;
use CGI qw(param);
my $text = param(\'text\');
if ($text) {
print "Content-type: text/html; charset=windows-1251\\n\\n";
print "$text";
} else {
print "Content-type: text/html; charset=windows-1251\\n\\n";
print "
";
}
Надо будет этот код где-нибудь сохранить, я смотрю он на все случаи жизни...