my $home='~/bin/MIReNA-2.0';
system("cd $home; ./MIReNA.sh");

##</code><code>##

$ perl -e ' exec "cd ./Matt; ls -l"'
total 11756
drwxr-xr-x+ 1 Laurent None        0 27 juin  19:26 appartement
-rwxr-xr-x  1 Laurent None 12038144 27 juin  22:27 appartement.tar

##</code><code>##

$ perl -E ' my @content = `cd ./Matt; ls -l`; print ++$i, ": $_"  for @content'
1: total 11756
2: drwxr-xr-x+ 1 Laurent None        0 27 juin  19:26 appartement
3: -rwxr-xr-x  1 Laurent None 12038144 27 juin  22:27 appartement.tar