my $uploadfilename = $input->param('uploadfile');
my $uploadfile = $input->upload('uploadfile');
my $op = $input->param('op');
my $op = $input->param('op') || q{};
my ( $total, $handled, @counts, $tempfile, $tfh );
-