catch {
   our $_; # stop lexical $_ from masking global $_
   print "We caught $_\n";
}