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

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