open(DATA, '... |') or die "Error executing ...: $!";
while (<DATA>) { ... }
close(DATA) or die "Error closing ...: $!";