Select Code to Download

$ perl -MO=Deparse,-p -Mstrict -e 'sub b;sub c;(1+b=>c)'
sub b;
use strict;
((1 + 'b'), c());
sub c;

print time.shift => "bbb";