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

print FH "bar";

close(FH);

##</code><code>##

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