#!/usr/bin/perl

my $r = Apache->request();
# "my $r = shift;" produces the same error as the above
$r = $r->filter_register;

print "Content-type: text/html\n\n";

print "<h1>Lorem Ipsum</h1>\n\n";

print "<p>Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Suspendisse fringilla porttitor mi....</p>\n\n";