#!/usr/bin/perl -w
use strict;
my $limit = $ARGV[0] || 10;

my @cycle = ( "you are", "I am" );

print map "\u$_\n", join(" glad ", reverse map $cycle[$_ % @cycle], 1 
+.. $limit) . " glad.";
[download]

(It is funny how many pitfalls can await one even in such a simple piece of code.)

Makeshifts last the longest.