disk performance or destructive testing

[ben perl]

Does anyone know any perl module for validating  or do some desctructive
testing on disks on Linux platform?

Thanks,
-Ben