open(IMG,"foo.gif");
foreach (<IMG>) {
    # something wrong here I suppose
    @hex = unpack("H*",$_);
    foreach $b (@hex) {  # this array on has one item
        print "$b ";     # which gets printed here
    }                    # shouldn't it be a list?
    print "\n";
}
close(IMG);