$outfunc{'brew'} = 'outputrecipebrew';
sub outputrecipebrew
{
my $file = shift;
$name = $recipe{$file}{'Name'};
$name =~ s/\s//g;
$recipe{$file}{'Ingredients'} =~ s/\\n/
\n/g;
# $recipe{$file}{'Ingredients'} =~ s/:SEP:/
$recipe{$file}{'Name'} ($recipe{$file}{'Yields'}) | \n"; print OUT "$recipe{$file}{'Trival'} | \n";
print OUT "
$recipe{$file}{'Ingredients'} | \n"; print OUT " |
$recipe{$file}{'Comment'} | \n"; print OUT "