#!/usr/bin/per
use strict;
use warnings;
my $currDir = `pwd`;
chomp $currDir;
print "$currDir\n";