<!DOCTYPE html>
<html>
<body>
This file contains good perl!
With leading whitespace
<!-- perl good perl is here
use strict;
my($class,$r) = @_;
$r->print("$class with: ","goodperl_2","\n");
--> end of perl
</body>
</html>
<!DOCTYPE html>
<html>
<body>
This file contains good perl!
With leading whitespace
<!-- perl good perl is here
use strict;
my($class,$r) = @_;
$r->print("$class with: ","goodperl_2","\n");
--> end of perl
</body>
</html>