Select Code to Download

system("$^X -w son.pl"); # it is assumed son.pl is in CWD

#!/home/sergei/PERL-5.10.0/bin/perl -w

...
  system($cmd);
  warn "father.pl: \$?=$?";
  }

"
 ./father.pl
...

father.pl: $?=0 at ./father.pl line 23.
".

"
(export PATH=/opt/kde3/bin:/home/sergei/bin:/usr/local/bin:/bin:/usr/X
+11R6/bin:/usr/games:/usr/lib/jvm/jre/bin:/usr/lib/mit/bin:/usr/lib/mi
+t/sbin;./father)
...
$cmd=perl -h at script/father.pl line 21.
father.pl: $?=-1 at script/father.pl line 23.
"