Select Code to Download

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

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