Select Code to Download

#!/usr/bin/perl

...

print "@test\n";

print "$array[1],$array2[1],$array3[1],$array4[1]...etc\/n";

...
@file=(<DAT>);

}