open P,"command |" or die "error running command $!";
my @data=<p>;
close P;
my $exit_value=$? >> 8;