#!/usr/bin/perl

use strict;
use warnings;
use 5.024;
use utf8;

BEGIN {
    $0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~;
    $1 ? (unshift @INC, $1) : (@INC = reverse @INC);
}
say "Programm: $0";

say '@INC: ';
say for @INC;

test@debora:~$ perl /media/sf_SHARED/a/a.pl 
Programm: /media/sf_SHARED/a/a.pl
@INC: 
/media/sf_SHARED/a
/etc/perl
/usr/local/lib/x86_64-linux-gnu/perl/5.36.0
/usr/local/share/perl/5.36.0
/usr/lib/x86_64-linux-gnu/perl5/5.36
/usr/share/perl5
/usr/lib/x86_64-linux-gnu/perl-base
/usr/lib/x86_64-linux-gnu/perl/5.36
/usr/share/perl/5.36
/usr/local/lib/site_perl

T:\>perl X:\media\SHARED\a\a.pl
Programm: X:\media\SHARED\a\a.pl
@INC:
X:\media\SHARED\a
C:/strawberry/perl/site/lib
C:/strawberry/perl/vendor/lib
C:/strawberry/perl/lib