my $cmd = '/usr/bin/strings /etc/passwd';
open my $handle, "$cmd |" or die "open: $cmd: $!\n";

# read at least one line
while ( <$handle> ) {
    last;
}

close $handle or die "$cmd; exit code($?): $!\n";