for (my $1 = 0 ; $i < $10 ; $i++) { 
    bg_subtest $self->tap("Write multiple files") => 
      sub { 
     exec("dd if=/dev/random of=/tmp/file${i} bs=1024  count =1000"); 
    }    
}
bg_subtest_wait();