# BETTER!
perl -MSafe -E'my $c=Safe->new; my $cmd = $c->reval("@ARGV"); print `$cmd`' cat /etc/passwd