use strict;
use warnings;
use threads;

#sub sub1{-
my $pid = open(HCIDUMP, "-|");
defined($pid) || die "can't fork: $!";

if($pid){
    while(<HCIDUMP>){
        my $test = readline(<HCIDUMP>);
        print "this is priting from open - $test\n";
    }
    close(HCIDUMP);
}else{
    exec("sdb shell hcidump") || die "can't exec program: $!";
}

##</code><code>##

"'-' is not recognized as an internal or external command,operable program or batch file."