I get an error with the code, sorry if I miss anything silly.

#!/usr/bin/perl -w

if (!defined($ENV{foo})) {
   if (@ARGV > 0 && $ARGV[0] eq 'nested') {
      die("Unable to find value for env var FOO\n");
   }

exec '/bin/csh', '-c', sprintf("source script1.csh ; perl $0 nested %s
+",join(" ",@ARGV));
   die("Unable to execute csh: $!\n");
}

printf "%s = %s\n",$_,$ENV{$_} foreach keys %ENV;
[download]

The script1.csh

setenv PATH_ORIG "${PATH}"
setenv MANPATH_ORIG "${MANPATH}"
setenv LD_LIBRARY_PATH_ORIG "${LD_LIBRARY_PATH}"
[download]

And the Error I get is
Missing $ on loop variable at tmp.pl line 13.

Please help me out...
Thanks