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

use strict;

warn "this is father, \$0=$0 \$^X=$^X";
warn "father.pl: \@INC=\n", join("\n", @INC);

warn "cwd: ", `pwd`;
warn "PATH: ", `echo \$PATH`;
my @PATH = split(':', $ENV{PATH});
warn "\$PATH[0]=$PATH[0]";

warn "father.pl: \$^X=$^X";

  {
  warn "father.pl: about to check Perl (\$^X)";
  my $cmd = "$^X -h";
  warn "\$cmd=$cmd";
  system($cmd);
  warn "father.pl: \$?=$?";
  }