Select Code to Download

#!/usr/bin/perl -l

...
## array:
my @foo = (4,5,6,7);
print scalar @foo;      ## 4