Select Code to Download

perl -MO=Deparse -e 'use strict;
use warnings;
...
@a = (sort foo 42);
print "a=@a\n";
-e syntax OK