close(STDERR);
my $here = `pwd`;
chop $here;
print "$here\n$$\n";
chdir("/");