sub init {
    my ($self) = @_;
    $SESSION = undef; # <- new bit.