cat essaiQX.pl
#!/usr/bin/perl 

my $LANG = "script internal";

system('echo $LANG');
system('echo','$LANG');

my @out = qx "echo $LANG";
chomp(@out);
print "out=@out\n";

my @out = qx' echo $LANG ';
chomp(@out);
print "out=@out\n";


##</code><code>##

./essaiQX.pl
fr_FR.UTF-8
$LANG
out=script internal
out=fr_FR.UTF-8