The Perl source code to the Cryptostorm widget