Select Code to Download

#! /usr/bin/perl
use strict;
...
   " glad " . $result foreach ( 1..$limit );

print $result, "\n";

c:/Data $ perl fn.pl 20
I am glad you are glad I am glad you are glad I am glad you are glad I
+ am glad you are glad I am glad you are glad I am glad you are glad I
+ am glad you are glad I am glad you are glad I am glad you are glad I
+ am glad you are glad I am glad.

#! /usr/bin/perl
use strict;
...
               return $oss[ $index = not $index ] : return;
    }
}

$result =  $head. " er glad " . $result while( my $head = &swap );