#!/usr/bin/perl
use FindBin qw($Bin);
use strict;

my $sample;

# Read samples from stdin
open(CONF, "|$Bin/check-confidence.pl --confidence-level 99 --limit 1 --print-stddev") || die ("Failed to run check-confidence.pl");
while (<>) {
	print CONF $_
}
close(CONF);
exit 0;
