use strict;
use warnings;

use Cwd;
my $dir=getcwd;
say $dir;