open(TEST, "|$command") || die "Can't pipe to '$command': $!";

##</code><code>##

if ( 0 != system( $command ) ) {
    die "system() exited with status $?";
}