Perl -T et les variables d'environnement

Si on utilise l'option "Taint" de Perl (avec perl -T), et qu'il faut exécuter un appel au système, le programme plante avec le message :

Insecure $ENV{PATH} while running with -T switch at ./test.pl line 2.

Exemple de code en défaut :

#!/usr/bin/perl -T
system("ls /");

Pour corriger le bug, supprimer les variables d'environnement avec :

#!/usr/bin/perl -T
delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
system("ls /");