use File::Basename qw(dirname); my $dirname = dirname($0); $main::ASP_CONF_MARK = 1; %Config = ( Global => '.', # Debug => -3, );