If you want 'csh', you have to ask for it.

      sub shellcmd
      {
           my ($shell) = shift;

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

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

(Reposted from an earlier post)