Select Code to Download

<% 
my @contents = ();
...
close FH;
$OUT .= @contents;
%>

my $q = CGI->new;
my $course_desc = "/courses/csci_xxx.txt" if ($q->param('course') eq "
+csci xxx");
...
my $output = $tmpl->fill_in(HASH => { course_desc => $course_desc});

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