Select Code to Download

use strict;
use warning;
use xyz;

print @array;

package xyz;

...
my $file = "qwerty.txt";
open FILE, "< $file";
my @array = <FILE>;