use strict;
use warnings;
use File::Basename;
my $script_dirname = dirname(__FILE__);
print "dirname: $script_dirname\n";