open(my $outfile, '>:raw', $hfn)
    or die "Couldn't open $hfn: $!\n"; # Overwrites existing file
  print $outfile pack("S*", @rgb);
  close($outfile)
    or die "Couldn't close $hfn: $!\n";