use Cwd;
print cwd(), $/;