use File::Basename; my $curr_dir = dirname(dirname($0)) . '/';