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

use strict;
use CGI::Auto;

CGI::Auto::auto(title       => "Test upload file -- wc",
                command     => "wc [%f(e2)]",
                dir         => "/tmp/lixo",
	            tohtml      => "table",
                th          => ["", "Lines","Words","Chars","Filename"],
                fs          => qr{\s+},
               );