package MyBase::CGIapp;
use parent qw' CGI::Application ';
sub run {
  my( $self ) = shift;
## pseudo code
  my $ret = eval { $self->SUPER::run(@_); };
  while( $@ ){
     $ret = eval { $self->handle_exeption };
     last if $ret ;
  }

  return $ret;
}