Select Code to Download

use strict;
use warnings;
...
print "my thing is $thing\n";
print "my list is @list\n";

$ perl list.pl
my thing is 6
my list is one two three four five six