init($cgi, $session) 

##</code><code>##

sub init {
        my ($session, $cgi) = @_;

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print