Select Code to Download

abc.pl
use strict;
...
use xyz;

print @array;

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