open(PIPE,"$run |") || die "pipe open failed: $!";
while(<PIPE>) {
    print $_;
}
close(PIPE);