Again, not realted to Perl but here is a free utility to do exactly what you are looking for:
http://www.wordstar.org/wsdos/pages/downloads.htm#WSCONEN

Ed Davison