## << do "./xx.pl" or print $! >> ## << $_ = `pwd` >> ##
## << while (($v,$vv) = each %ENV) { print "$v = $vv\n" } >>
## 
<< require "./xx.pl"; >>