dr@mail:~ $ pwd
/home/dr
dr@mail:~ $ perl -E'say `pwd`'
/home/dr

dr@mail:~ $ perl -E'say eval{`pwd`}'
/home/dr

dr@mail:~ $ perl -E'say eval{"pwd"}'
pwd
dr@mail:~ $ perl -E'say system("pwd")'
/home/dr
0