Same as above. Also, sanitize the command, to make sure nobody exploits your su subshell:

```perl
if (grep(m{[;&>|"']}, @$command)) {
    $self->error("Inavlid shell escapes found in command ",
         join(" ", @$command));
}
```