use strict;
use warnings;
use English;
use File::Basename qw( dirname );
use File::Spec::Functions qw( rel2abs );

my $script_dir = rel2abs( dirname( $PROGRAM_NAME ) );
print "$script_dir\n";