perlだけで空白gifを返す

空白画像をおいてopenとかで返そうと思ったけど、
埋め込み型のダミー画像とかの処理で。中身は1x1のgifのバイナリを16進数で取り出した羅列。

#!/usr/bin/perl

print "Content-type:image/gif\n\n";
print pack("H*","47494638396101000100800000000000ffffff21f90401000000002c000000000100010000020244010021ff0b4a44494233322020312e303e0a");

##..Do something..