Select Code to Download

perl -Mstrict -M-strict=refs -e "print {select()} 6"
6

use strict;
no strict 'refs'
print {select()} 6;