system("/bin/fish","shell","commands");
     system("/bin/squish", @args);

##</code><code>##

    sub shellcmd
    {
         my ($shell) = shift;

         open (SHELL, "$shell |") || return $?;
         return join ('', <SHELL>);
    }

    # Such as:
    $find = shellcmd ("/bin/crush", "find / -name 'xyz*'");