Создайте каталог в Perl вне папки bin

Question

Я пытаюсь создать папку в perl, но она либо появляется на диске C: \, либо в папке, где находится мой скрипт perl.

use File::Basename; 
use File::Path qw/make_path/; 

my $file = "/$tournamentName/files/archive/"; 
my $dir = dirname($file); 
make_path($dir); 

Приведенный выше код помещает папку $ tournamentName в диск C: \. Как я могу указать, что папка создается вне bin - желательно в родительской папке bin.

Благодаря

Answer 1

my $dir = "$path_to_bin/../$tournamentName"; 

Если вы имеете в виду каталог, в котором сценарий находится,

use FindBin qw($RealBin); 

my $dir = "$RealBin/../$tournamentName";