sub try (&;@_) {
  print "try>> @_\n" ;
}
         
sub CLASS::catch {
  print "catch>> @_\n" ;
  return( 'catch' , @_ ) ;
}

sub with (&;$) {
  print "with>> @_\n" ;
  return( 'with' , @_ ) ;
}

##</code><code>##

  try {
    print "test\n" ;
  }
  catch CLASS with {
    print "alert\n" ;
  } ;


##</code><code>##

with>> CODE(0x1a72f20)
catch>> CLASS with CODE(0x1a72f20)
try>> CODE(0x1a72c5c) catch CLASS with CODE(0x1a72f20)