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