Source

#!/usr/bin/perl# Merge a low and high roms into a single image fileusewarnings;usestrict;my$f1=shift;my$f2=shift;undef$/;openBIN1,"<$f1"ordie;my$bin1=<BIN1>;openBIN2,"<$f2"ordie;my$bin2=<BIN2>;my@b1=split//,$bin1;my@b2=split//,$bin2;my$b1_len=length$bin1;my$b2_len=length$bin2;die"File lengths $b1_len != $b2_len\n"unless$b1_len==$b2_len;formy$i(0..$b1_len-1){print$b2[$i],$b1[$i];}__END__