#! perl -slw
use strict;
use vars qw[ $LANG ];

BEGIN{ $LANG ||= 'ENGLISH'; }
use Language $LANG;

print RED, GREEN, BLUE;
print "The RED ballon floated over the GREEN fields in the BLUE sky";

{
	no Language;
	print RED, GREEN, BLUE;
	print "The RED ballon floated over the GREEN fields in the BLUE sky";
}

print RED, GREEN, BLUE;
print "The RED ballon floated over the GREEN fields in the BLUE sky";

__END__
P:\test>junk
redgreenblue
The red ballon floated over the green fields in the blue sky
redgreenblue
The RED ballon floated over the GREEN fields in the BLUE sky
redgreenblue
The red ballon floated over the green fields in the blue sky

P:\test>junk -LANG=DUTCH
roodgroenblauw
The rood ballon floated over the groen fields in the blauw sky
roodgroenblauw
The RED ballon floated over the GREEN fields in the BLUE sky
roodgroenblauw
The rood ballon floated over the groen fields in the blauw sky

P:\test>junk -LANG=FRENCH
rougevertbleu
The rouge ballon floated over the vert fields in the bleu sky
rougevertbleu
The RED ballon floated over the GREEN fields in the BLUE sky
rougevertbleu
The rouge ballon floated over the vert fields in the bleu sky