Recherche:

Il semble que ce soit pour tester le shell... ce qui pourrait expliquer l'usage de system.
Du coup, pourquoi ne pas tout tester en bash ?

Regarde du coté du module Text::Diff dans ce cas.
Si tu n'utilises pas directement le retour du ls dans le script, tu peux utiliser indifféremment qx{} ou system.

Ta question porte plus sur la shell que sur perl.

Exemple avec bash :
Pour changer de répertoire avant de faire le "ls", tu écris ainsi :


system("cd toto ; ls");

Ou mieux encore :