use strict; use warnings; my $result = qx[${\ ( 'ls -l ' . '/etc' . '/passwd' ) }]; print $result . "\n";