Select Code to Download

$ perl -E'package tst; sort{$a le $b} 1..100; say exists $tst::{a}; us
+e strict; say $a;'        
1