#!/usr/local/bin/perl # Flush stdout. $| = 1; print "c\n"; while (<>) { chop; $opponent = $_; if ($opponent eq "c") { print "d\n"; } else { print "c\n"; } }