Select Code to Download

$imgData = pack( "b", @byte_array);
open my $outfile, '>', $fileName or die "Error writing $fileName $!";
binmode $outfile;
print $outfile $imgData;
close $outfile;