Help for this page
select * from bodies;
perl thetable.txt > formatedtable.txt
#!/usr/bin/perl ... exit(0);