#!/usr/bin/perl
#-->cgi:/home/jj/public_html/bin/any2txt
#-->dir:/tmp/lixo

use strict;
use CGI::Auto;
#use encoding "utf8";
#binmode(STDIN,":utf8");

CGI::Auto::auto(title       => "Transform any to text",
  command     => "/home/jj/bin/jop [%o(options)] [%f(e2)]",
  -options    => [ long_lines => "-l" ],
  dir         => "/tmp/lixo",
  mimetype    => "text/plain",
#  debug => 1,
#	            tohtml      => "table",
#                th          => ["", "Lines","Words","Chars","Filename"],
#                fs          => qr{\s+},
);