#!/usr/bin/perl -w
 
 
source_it() unless $ENV{foo};
 
printf "%s = %s\n",$_,$ENV{$_} foreach keys %ENV;
 
exit(0);
 
 
sub source_it{
    exec "echo 'source env.csh ; perl $0' | csh -s";
}