Select Code to Download

$ perl -MO=Deparse 443218.pl
my(@l) = ('10', '20', '30');
...
}
print $t;
443218.pl syntax OK

$ cat 443218.pl
use warnings;
...
#my $t;
#$t += $_ foreach @l;
print $t;