my $cmd = 'sdb shell hcidump |';
my $child = open( my $hci, $cmd )
    or die "Couldn't spawn [$cmd]: $!";

while (<$hci>) {
    ...
};

END {
    if( $child ) {
        kill 'KILL' => $child;
    };
    $child = 0;
};