Select Code to Download

open my $fh,"<","textfile";
my @lines = <$fh>;
close $fh;
print join "|", @lines;