Konvertering af gif til hex

["Henning Hansen" <sslug@sslug>]

Hej

Er der nogen der kan hjælpe mig med dette. Jeg skal have et perlscript til
at konvertere et gif billed til hex. Jeg har fået anvist dette script,
men kan ikke få det til at virke ?

open(F, "myimage.gif") || die $!;
binmode(F);
$s =3D $hx =3D "";
while (read(F, $s, 1) > 0) {
$hx .=3D sprintf("%02X", ord($s));
}
close F;
print "The hex-encoded GIF file is: $hx\n";

Mvh Henning Hansen