{
    $OUT .= "";
    foreach my $line (@lines)
    {
	$OUT .= "$line\n";
    }
}