Select Code to Download

my @badger="true";
foreach (@badger){print "$_\n"}

my ($a,$b,$c) = ("TRUE", "TRUE", "TRUE");