#!/usr/bin/perl
use strict;
use warnings;
use Cwd;
my $currDir = cwd;
print "$currDir\n";