eval 'exec perl $0 ${1+"$@"}'  # -*- perl -*-
if $running_under_some_shell;
use YAML;
print "Path is   ";
print $ENV{PATH};
%ENV = %{ Load qx{.rcfile; perl -MYAML -e 'print Dump \\%ENV'} };
print "Path is now ";
print $ENV{PATH};

##</code><code>##

#!/bin/csh -f 
source /usr/applis/common/sourcefiles/solaris/unicad_24

##</code><code>##

--- !perl/YAML::Error
code: YAML_LOAD_USAGE
msg: 'usage: YAML::Load($yaml_stream_scalar)'
...
 at test.pl line 8
Path is   /usr/applis/perl/5.005_03/bin: /usr/applis/common/bin:/usr/applis/common/bin: /usr/bin:.:/usr/dt/bin:/usr/openwin/bin: /bin:/usr/ucb:/usr/local/bin:/usr/applis/common/bin: .:/home/rishis:/home/rishis/bin:/usr/local/bin: .:/home/rishis:/home/rishis/bin:/usr/local/bin: .:/home/rishis:/home/rishis/bin:/usr/applis/unicad/24/Ukernel