# BAD!
perl -E'my $cmd = "@ARGV"; print `$cmd`' cat /etc/passwd

##</code><code>##

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