convert jpg to hex pnm

jpeg2hex.pl

#!/usr/bin/perl

$f = shift @ARGV || die "syntax: jpg2hex FILENAME\n"; 
open($fh, "jpegtopnm tomfezicon.jpeg | pnmtoplainpnm |");
$x = <$fh>; print $x;
while (<$fh>) { 
   @r = split(/\s+/);
   foreach $h (@r) { printf("%02x", $h); }
   print "\n";
}
close $fh;