#!/usr/bin/perl
use Cwd;
print getcwd();