is($exit, $fail, "each $cmd returned $fail");
my @lines = split /\n/, do { local $/; <$fh> };
my $res = [ map [ split /\|/, $_ ], @lines ];
is($exit, $fail, "each $cmd returned $fail");
my @lines = split /\n/, do { local $/; <$fh> };
my $res = [ map [ split /\|/, $_ ], @lines ];