# read data from a file
my $jpgData;
{
  local $/; # slurp mode.
  open(JPEG, "< $file") or die "Can't open $file : $!\n";
  binmode JPEG;
  $jpgData = <JPEG>;
  close(JPEG);
}