#!/usr/bin/perl -w print hex("FFG"), "\n";