#!/usr/bin/perl
use strict;
use warnings;
use Cwd;

my $script_dirname = cwd;
print "dirname: $script_dirname\n";