use FindBin;
use File::Spec;
sub init
	{
	my $sitenick = 'aikxdc';
	my  @Configs = qw(config.cfg.pl meta.cfg.pl upload.cfg.pl);
	for my $cfg (@Configs)
		{
		$cfg = File::Spec->catdir( $FindBin::Bin, "config", $sitenick, $cfg );
 		eval {  require "$cfg" ; };
		if ( $@ ){ die "Can't load $cfg: $@"; }
		else { print STDERR "\nDatei geladen:'$cfg' \n"; }
		}