#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use File::Spec::Functions qw( catdir catfile );

my $base    = '/tmp';
my @configs = qw( a.pl b.pl );

my $dir = 'ddd';

for my $cfg ( @configs ) {

    # falsch
    #$cfg = catdir( $base, $dir, $cfg ) .';';
    #$cfg = catdir( $base, $dir, $cfg );
    $cfg = catfile( $base, $dir, $cfg );

    eval { require $cfg };
    if ( $@ ) {
        die "Can't load $cfg: $@\n";
    }
    else {
        print "yes!\n";
    }
}