my $now= time; defined $now or die $!;
fail("clock skew") if $o{'timestamp'} >= $now;
-die if $o{'ocean'} =~ m/\=/;
-die if $o{'island'} =~ m/\=/;
-
my $indatafh= upload('data');
defined $indatafh or fail("data is not a file");
my $datafile= must_param('data',"^(deduped\\.tsv\\.gz)\$");