#!/usr/bin/perl5.36.0
use File::Spec;
my($v,$d) = File::Spec->splitpath(File::Spec->rel2abs(__FILE__));
my @d = File::Spec->splitdir($d);
pop @d for 1..2;
my $dist_dir = File::Spec->catpath($v,File::Spec->catdir(@d), '');
print $dist_dir
