{
    $OUT .= "";
    foreach my $line (@lines)
    {
        chomp $line;
        next if grep { /^$/ } $line ;
        push @lines, $_;

	$OUT .= "$line\n";
    }
	$OUT .= "?>";
}