Save our hard drive

I wrote a script to make one of our test machine's hard drive activity light do S.O.S. in Morse Code. (with the accompanying grinding noise)

Ahhh, fun with raw(8) and pack("p", ...) to align Perl scalars to blockdev --getbsz -sized boundaries in memory.

I'd post the script but I don't want to be responsible for you destroying your filesystems on accident.

(P.S. This has practical value, except for the Morse Code part....)