# Dateien im Unterverzeichnis
$ ls -1 foo/
bar.pl
foo.pl
# Testaufruf mit Pfad
$ perl foo/foo.pl
Can't locate bar.pl in @INC (@INC contains: "...viele Perlverzeichnisse und dann auch" .) at foo/foo.pl line 7.
# Wechsel ins Unterverzeichnis
$ cd foo
# Aufruf im Unterverzeichnis; Über "." im @INC findet sich jetzt auch "bar.pl"
$ perl foo.pl
This is bar.pl
This is foo.pl
$
$
$ cat foo.pl
#! /usr/bin/perl
use strict;
use warnings;
use feature qw( say );

require "bar.pl";

say "This is foo.pl";

$ cat bar.pl
#! /usr/bin/perl
use strict;
use warnings;
use feature qw( say );

say "This is bar.pl";
$