my $package = __PACKAGE_FILENAME__; my $related = $package; $related =~ s/this.pm/other.pm/; if ( -e $related ) { require $related; else { die "related package missing: $related"; }