Select Code to Download

use warnings;
use strict;
...

eval ' package T; print "B: $x\n"; 1 ' or warn "B: $@";
# => now works