Select Code to Download

    my $date = $q->param( 'date' );
    my $filet = $q->param( 'filet');

#!/usr/local/bin/perl -wT
use strict;

...
    print $q->header,start_html," @names $action $time $date filet = $
+filet",end_html;
    exit;
}