You could also try IPC::Open3 to get some other shell to run.

my $pid=open3(\*IN,\*OUT,\*ERR,'/bin/tcsh');
.....
print IN  "$mycommand\n";

my $results = <OUT>;
[download]