#!/usr/bin/perl

use strict;
use warnings;
use Cwd;

my $dir = getcwd;
print $dir, "\n";