Perl thinks you're doing something like this:

open(FH, '>foo.txt') or die $!;

print FH "bar";

close(FH);
[download]

Which prints to a file instead of STDOUT. Try explicitly passing the filehandle in your code, e.g.:

print STDOUT header(),start_html ("resource input"),h1("recource");
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated