sub Rundibbler{
        threads->create(sub{my $qxdib=qx/dibbler-client run > dibbler.out/;})->detach();
        threads->create(sub{
        my $buff;
        my $i=1;
        while(1){
           open IN, "dibbler.out" || die "Could not open file:$!";
           while(read(IN,$buff,1)){
               $reply->insert('end',$buff);
           }
           close IN;
           open OUT, ">dibbler.out" || die "Could not open file:$!";
           print OUT " ";
           close OUT;
           sleep $i;
            $i++;
        }})->detach();
}