The code you posted in your original node works fine.

It sounds like you want it to continue to work with a single-quoted "heredoc", i.e.:

print <<'EOF';
[download]

By doing that, you are defeating interpolation.

May I suggest an alternative , more efficient (for the programmer) syntax to get the results you want, while avoiding the "heredoc" syntax that you are having trouble with :

use CGI;

my $q = CGI::->new();

print $q->start_table($q->caption("table Caption")), "\n",
      $q->thead({-class=>"flip-content"},
                $q->Tr($q->td({-width=>"20%"},"Students id") ,
                 map {$q->td({-class=>"numeric"}, $_). "\n"}
                   ("First Name", "Last Name", "Date Of Birth", 
                    "Year In", "Password", "Email","Telepon")
                 )), "\n",
      $q->start_tbody(),"\n";

while (my @row_array = $sth->fetchrow_array()){ 
   print $q->Tr(
               map {$q->td($_) . "\n"} @row_array
               ),"\n";

}

print $q->end_tbody(),"\n",$q->end_table(),"\n";
[download]

There are better alternatives if you use one of the "template" modules, but this should get you started.