there is a library wv ware that do this on *nix, you may want to make a perl Module that wrap it. :-)