$ perl -wle'
system "sudo", "echo foo";'
sudo: echo foo: command not found
$ perl -wle'
system "sudo", "echo", "foo";'
foo