#!/usr/bin/perl 
# my_poem.pl
BIRTH: $I_Live = 'true';
while ($I_Live){
	I: do {
		say (@strange_things = ( "Rant", "Rave", "Hulicinate", 
                                 "Instigate"));		
	}until ( $I . 'Irritate');
	
	unless ($I_Behave) {
		I_Will: die "From your Anger" unless
			($I.(pack $my, $bags) && $leave);
	}
}

sub say() {
	print "@_ \n";	
}

##</code><code>##

Rant Rave Hulicinate Instigate
From your Anger at my_poem.pl line 10.