Too many arguments for substr at ./gif2hex.perl line 17, near "'')"
Execution of ./gif2hex.perl aborted due to compilation errors.

##</code><code>##

#!/usr/bin/perl -w

# Description: Hex embedded images sample
# Date:        June 28, 2000
# Author:      bbq@zaz.com.br
# URL:         http://johnny.warp.psi.br/perl/images.pl?img=text

open IMG, "./arrow.gif"
       or die "Couldn't open image: $!\n";

binmode(IMG);
undef $/;
$image = <IMG>;
$hex = unpack("H*", $image);
close IMG;

while ($txt = substr($hex,0,32,'')) {
       print "'$txt'\n";
       }

# END