Select Code to Download

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

print FH "bar";

close(FH);

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