Select Code to Download

open(my $infile, '<', "./file") or die "Cannot open file: $!";
binmode($infile);
...
close $outfile;

system ( 'pause' );

my $reference = $buffer;
print $reference;