I've been using BCWipe (under Win32) for several years. It is also (recently?) available for Linux

Its not a Perl solution, but it is DoD 5200.28 complient which should mean something. Its also on a GPL licence which if you really want to impliment this in Perl, would give you source as a starting point.