I can't manipulate the encrypting process itself since I use Crypt::CBC. The user (of the module) will provide keyphrase and cipher. I could check the very first string (til it matches an ;) after the use statement with eval tho :)
Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.