[scripts] [mailto] Reimplement in perl.