Select Code to Download

use CGI qw(:standard);

...
}

close TEMPLATE;

$temp =~ s/\[\%1\%\]/$news1/;
$temp =~ s/\[\%2\%\]/$news2/;
print header();
print "$temp";