sub writeAnImage {
  my $hashCode = $_[0];
  my %pngData = (
  'blank', '89504e470d0a1a0a0000000d49484452000000320000005a0803000000cd46f5b400000003504c5445efefefec97ba8d0000001b494441545885edc1010d000000c2a0f74f6d0f0714000000003f0611ee00013060c47e0000000049454e44ae426082'
  );
  my $dataString = "";
  my $twoHex = "";
  my $dataLength = 0;
  my $byteCounter = 0;
#
  if ($hashCode) {
    if ($pngData{$hashCode}) {
      $dataString = $pngData{$hashCode};
      $dataLength = length($dataString);
      open(MyPNG, ">$hashCode") or die("Write Error: $hashCode");
      binmode(MyPNG);
      for ($byteCounter = 0; $byteCounter <= $dataLength; $byteCounter += 2) {
        $twoHex = substr($dataString, $byteCounter, 2);
        print MyPNG chr(hex($twoHex));
      }
      close(MyPNG);
    }
    else {
      print "No such code in the hash ($hashCode)\n";
    }
  }
  else {
    print "No code specified\n";
  }
}