Select Code to Download

#!/usr/bin/perl
use strict; 
...
my @array = (1..10);
local $, = "\n"; 
print @array;