"
(export PATH=/opt/kde3/bin:/home/sergei/bin:/usr/local/bin:/bin:/usr/X11R6/bin:/usr/games:/usr/lib/jvm/jre/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin;./father)
this is father, $0=./father $^X=perl at script/father.pl line 7.
father.pl: @INC=
/tmp/par-sergei/cache-e0cd5bf94ffa04802f4f5c756f59f68f58993e95/inc/lib
/tmp/par-sergei/cache-e0cd5bf94ffa04802f4f5c756f59f68f58993e95/inc
CODE(0x8736488)
CODE(0x87367d8) at script/father.pl line 8.
cwd: /home/sergei/junk/perl_package
PATH: /tmp/par-sergei/cache-e0cd5bf94ffa04802f4f5c756f59f68f58993e95:/opt/kde3/bin:/home/sergei/bin:/usr/local/bin:/bin:/usr/X11R6/bin:/usr/games:/usr/lib/jvm/jre/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin
$PATH[0]=/tmp/par-sergei/cache-e0cd5bf94ffa04802f4f5c756f59f68f58993e95 at script/father.pl line 14.
father.pl: $^X=perl at script/father.pl line 16.
father.pl: about to check Perl ($^X) at script/father.pl line 19.
$cmd=perl -h at script/father.pl line 21.
father.pl: $?=-1 at script/father.pl line 23.
"