#!/usr/local/lib/perl

sub get_config {
    my $CONFIGPATH = 'acme.config';
    open (CONFIG,$CONFIGPATH) or die "$0: File '$CONFIGPATH': $!\n";
         undef $/;
         my $c=<CONFIG>;
    close CONFIG;
    return chomp($c);
        }