GI::param called in list context from package CGI::Session line 364, this can lead to vulnerabilities. See the warning in "Fetching the value or values of a single named parameter" at /Users/XXXXXX/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/CGI.pm line 425., referer: http://cismun.local/cgi-bin/register.cgi

##</code><code>##

sub register_delegate{

  my $self = shift;
  my $session = $self->session();
  my $query = $self->query();
  my $countries = createHTMLDropDown("../files/country_listv2.txt");
 
  #clearing the session before writing new values.
  $session->clear();
#this line of code causes the error.
#  $session->save_param();
# 
$self->log->debug("after calling save param");
  my %ret_params = (
                'session_id' => $session->id(),
                'country_list_dd' => $countries,
                );

  return $self->tt_process('dlg_register.tt',\%ret_params);
}

##</code><code>##

$session->save_param($query->param('s_addr')) or die $!;;

##</code><code>##

$session->save_param(scalar $query->param('s_addr')) or die $!;