#!/usr/bin/perl use warnings; use strict; print ord('c'), "\n";