Select Code to Download

#!/usr/bin/perl -w

...
     print "... jpeg data contains errors ...\n";
 }

 my $rv = Image::TestJPG::testJPG($jpgData, $length);
print "RV: $rv\n";

Use of uninitialized value in concatenation (.) or string at ./CCIMGVE
+Rtest.pl line 20.
RV:

binmode JPEG;