#!/usr/bin/perl -w

use strict;
use Cwd;

print Cwd::cwd(), "\n";