@table_fields = "field1","field2","field3","field4");
foreach $table_fields (@table_fields)
{print"| $table_fields | \n";}
print"\n";
open (DATABASE, "$database");
while ($inLine = )
{ $line=$inLine;
{ @fields = split(/\|/,$line);
{print"$fields[6] | \n";}
{print"$fields[8] | \n";}
{print"$fields[0] | \n";}