package Module;
use warnings;
BEGIN {
    my $pathname = $INC{$\(__PACKAGE__)}.pm"};
    $pathname =~ s/\.pm$/.conf/;
}
1;

##</code><code>##

$ perl -c Module.pm
Use of uninitialized value in substitution (s///) at Module.pm line 8.
Module.pm syntax OK
$