Some Plain tests for Embperl using optRawInput

Here it starts with some HTML Text

All values should be undefined: $a =
$b =
$c =
$d =
$e =
First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöü
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code,
Embperl will not delete them when optRawInput is set !
 6 + 17 * 3 Here we have something which looks like a HTML tag, but does not start with
a character, Embperl does not change them!
SELECT * FROM a ORDER BY b USING <; Hi There> Embperl will not translate HMTL escapes to the right characters
when optRawInput is set
2 < 6 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 6 + 17 * 3
$d = 2 < 6
$e = 2

Ok.

optRawInput is now: 1
optRawInput is set now to: 1
optRawInput is now: 1
 6 + 17 * 3 Now lets look what we are getting from this:
$a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 6 + 17 * 3
optRawInput is now: 1
optRawInput is set now to: 0
optRawInput is now: 0
 6 + 17 * 3 Now lets look what we are getting from this:
$a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 6 + 17 * 3