my $CMD = ; my $USER = POSIX::cuserid(); chomp $CMD ; my @CMD = split(/\s+/, $CMD); elsif (@CMD[0] eq "#Export") { my $variable_nom = "@CMD[1]"; my $variable_eq = "@CMD[2]"; if ($USER eq "root"){ open (VARLIST, ">> /etc/rlsh_varlist.txt"); print VARLIST "@CMD[1] @CMD[2]\n"; close VARLIST; } else{ open (VARLIST, ">> /home/$USER/rlsh_varlist.txt"); print VARLIST "@CMD[1] @CMD[2]\n"; close VARLIST; } }