[Pelayo Martin]

¿Cómo puedo evitar escapar por accidente en perl usando system?

[Pelayo Martin]

He intentado con esto y tampoco nada:

use IPC::System::Simple qw(system);
system("cat *.txt");

[Jhony10]

Genera el nombre y los argumentos del comando como un array y pasalo al system:

my(@command) = ("trash-put", 'home/$nombrearchivo');
system @command;

[Pelayo Martin]

Gracias Jhony con tu solución si lo pude hacer