3 my $mtpt = shift || die;
4 my $mount_count = shift || die;
9 $which = int(rand() * $mount_count) + 1;
10 $path = "$mtpt$which/";
12 $d = int(rand() * $size);
13 print `./mcreate $path$d`;
15 $which = int(rand() * $mount_count) + 1;
16 $path = "$mtpt$which/";
18 $d = int(rand() * $size);
19 unlink("$path$d") || print "unlink($path$d): $!\n"