sub cgiapp_postrun {
my $self = shift;
#die Dumper($self);
$self->session->save_param();
$self->session->flush();
}
####
Assertion ((buffer)->sv_flags & 0x00000400) failed: file "sv.c", line 1741 at /usr/lib/perl5/5.10.0/i386-linux-thread-multi/Data/Dumper.pm line 190
####
$self->session->clear(['bulk_upload']);and $q->param('bulk_upload','');
$self->session->clear('bulk_upload');
####
_SESSION_REMOTE_ADDR' => '10.10.192.63','bulk_file' => bless( \*{'Fh::fh000018yy_import.txt'}, 'Fh' ),'_SESSION_CTIME' => 1261427840,'bntsubmit' => 'Upload File','_SESSION_ATIME' => 1261427915,'bulk_upload' => '','authen_loginbutton' => 'Sign In','Agree' => 'Agree','_SESSION_EXPIRE_LIST' => {}};;$D[rootvi /var/www/chkdwn/cgi-bin/Sup*/Index.pm
####
my $q = $self->query();
$upload_file = $q->param('bulk_file');
$q->param('bulk_file','');
$self->session_config(...