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

my $index = 0;
my $result = "I am glad.";
$result = ( "I am", "you are" )[ $index = not $index ] . 
   " glad " . $result foreach ( 1..$limit );

print $result, "\n";