sub contact_GET { my ( $self, $c ) = @_; # Using Crypt::Random my $token = makerandom( Size => 128, Strength => 0 ); $c->session->{token} = $token; $c->load_status_msgs; $c->stash( template => 'contact.tt', title => 'Contact Us', token => $token, ); }