#!/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;