Select Code to Download

perl -W -e 'warn sort {$a <=> $b} qw(A B);'

perl -W -e 'warn sort {$a cmp $b} qw(1 2);'