>perl -wMstrict -le
"use 5.10.0;
 ::default();
 sub default { print 'works' }
 given ('x') {
   when ('y') { print 'y'       }
   default    { print 'default' }
   }
"
works
default