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