use Cwd;
warn cwd(),"\n";