#!/usr/local/bin/perl

# by www.rescue.ne.jp

#パックする画像ファイル
$banners = './minibbs2.gif';

print "Content-type: text/plain\n\n";

open(FOO,$banners);

$i = 0;
while (read(FOO,$data,1)) {

	@array = unpack('C*',$data);
	$data =~ tr/\0-\37\177-\377/./;
	for (@array) { $_ = sprintf('%2.2x',$_); }

	$data =~ s/[^ -~]/./g;
	printf "\"%s%s\"\,",@array;
	if ($i == 19) { print BAR "\n"; print "\n"; $i = 0; } else { $i++; }
}

close(FOO);

exit;