#!/usr/bin/perl -w print "chicken" cmp "egg", "\n";