逆にkingshine.pngからkingshine_.pngを吐くcｿｰｽｺｰﾄﾞを吐くperlｿｰｽｺｰﾄﾞ

#!/usr/bin/env perl
open fh,"kingshine.png";
@a = unpack ("C*",join '',<fh>);
close fh;
$a = @a;
$b = join(',',@a);
open fh,">kingshine.c";
print fh <<KING;
#include<stdio.h>
#include<stdlib.h>
main(){
FILE *f1;
int c[$a]={
$b
};
long i;
if((f1=fopen("kingshine_.png","wb"))==NULL){puts("fopen error");exit(1);}
for(i=0;i<#a;++i){
putc(c[i],f1);
}
fclose(f1);
return 0;
}
KING
close fh;