<% my @contents = (); open (FH, "<", "$course_desc") || die "can't open file: $!"; @contents = ; close FH; $OUT .= @contents; %> #### my $q = CGI->new; my $course_desc = "/courses/csci_xxx.txt" if ($q->param('course') eq "csci xxx"); ... my $tmpl = Text::Template->new(TYPE => "FILE", SOURCE => $template_src, DELIMITERS => ['<%', '%>'], UNTAINT => 1) || die ("Error loading template $filename: $Text::Template::ERROR"); my $output = $tmpl->fill_in(HASH => { course_desc => $course_desc}); print "Content-type:text/html\n\n", $output;