Select Code to Download

my @LINES = <ORDERFILE>;
my $filedata = join '',@LINES;

my $filedata = <ORDERFILE>;