$ENV{'PLATFORM'}="abcdef";

##</code><code>##

$variable="PLATFORM";
$ENV{$variable}="abcdef";

##</code><code>##

use strict;
 
if (@ARGV){
    print $ENV{PLATFORM}, $/;
    exit;
}
 
while(<DATA>){
    chomp;
    my ($variable, $value) = split '=';
    $ENV{$variable}=$value;
}
 
system("perl", $0, "test");
 
__DATA__
PLATFORM=abcdef