#!/usr/bin/perl -wT

use strict;
use Cwd;

my $dir = cwd();

print "$dir\n";