use strict; use warnings; my $result = qx[${\ ( 'ls -l ' . '/etc' . '/passwd' ) }]; print $result . "\n"; #### -rw-r--r-- 1 root root 1867 Apr 28 15:00 /etc/passwd