Help for this page
print "${foo()}";
print "${system('/bin/rm *')}"
$a = q|{system('/bin/rm -rf *')}|; print "$a";