Select Code to Download

 sub first_process {
        $data_dir="/data_dir/saurav/data";
...

#---------------End of table--------------------------------
print $q->end_table;

my $q = new CGI;
my $params = $q->Vars;
...
    }
#print FILEHANDLE values %params;
close FILEHANDLE;