#!/usr/bin/perl

use strict;
use Text::TabDB;
#undef $/;
#$/='';

Text::TabDB::tabdt( "d",{
 begin=>sub {"##-----------\n".join("===",@_)."\n##----------\n"},
 tup_a=>sub { join("===",@_)."\n"},
 end=>sub {"tomates\n"},
} );