#!/usr/bin/env perl

use cwd;

my $dirname;
$dirname = cwd();
print "$dirname\n";