Help for this page

Select Code to Download

Select or download this

while( my $line = <TEMPLATE> ) {
    $outputpage .= $line;
}

Select or download this

my @lines = <TEMPLATE>;
foreach my $line (@lines) {
    $outputpage .= $line;
}