[MacPerl] Zap Research Fork...?

[Morbus Iff]

Does anyone have a simple Perl (or Applescript, or anything really) that
will zap resource forks of files? I used to use the builtin command with
Finderpop, but since I moved to OS X, I don't have the functionality.

I could use ResEdit, but I deleted that accidentally and don't feel like
hunting for it again (laziness laziness laziness)... Any takers?

-- 
      ICQ: 2927491      /      AOL: akaMorbus
   Yahoo: morbus_iff    /  Jabber: [EMAIL PROTECTED]
   [EMAIL PROTECTED]   /   http://www.disobey.com/