perl script to wipe hdd with garbage data