view release on metacpan or  search on metacpan

examples/tea.pl  view on Meta::CPAN

#!/usr/bin/perl

# Please don't encrypt me!
# This space is left blank intentionally  
use Filter::CBC "TEA","my secret key";
RandomIVüÌøÐ"ÜÄ¢åOÕSA0—PŠšYYÖçzâ’è
‡›`7k껕Tý;€¯ì!O…eoÿ 4q/ûpÅ¥‰<ÝEÍгéÄ®œù«ÀB'[V‰Í€Ñ0žØØ=Æ8œò|•Ùr%ÔPÕB^ÊÊ·‚nrên´fÜâÅ&»ÃLe"n`y,/^ýì@ZíîÏÁ¡