- my $ocean= $ENV{'YPPSC_OCEAN'}; die unless $ocean;
- my $island= $ENV{'YPPSC_ISLAND'}; die unless $island;
- my $content= {
- 'data' => [ undef, 'deduped.tsv.gz',
+ my %o;
+ $o{'ocean'}= $ENV{'YPPSC_OCEAN'} or die;
+ $o{'island'}= $ENV{'YPPSC_ISLAND'} or die;
+ $o{'timestamp'}= 10;
+ get_our_version(\%o, 'client');
+
+ my $tf= pipethrough_prep();
+ write_tsv($tf);
+ my $oz= pipethrough_run_gzip($tf);
+ $o{'data'}= [ undef, 'deduped.tsv.gz',