use File::Basename;

my $script_dir = dirname($0);