With my scripts I used a BEGIN block:
BEGIN {
$0 =~ m~(.*)/[^/]+~ || $0 =~ m~(.*)\\[^\\]+~;
$1 ? (unshift @INC, $1) : (@INC = reverse @INC);
}
An user of the perl-community.de told me that the perl version which is shipped with alma8, doesn't deliver $0 and so the code of the block can't...