sub eval_x {
  eval("die") ;
  my ($eval_x) = ( $@ =~ /\(\s*eval\s+(\d+)\s*\)/si );
  return( $eval_x ) ;
}