#!/usr/local/bin/perl

# Return requested value from config file

&source('./config');

while (@ARGV) {
	eval "print \$" . shift(@ARGV) . "\n";
}

exit(0);

sub source {
    local($file) = @_;
    local($return) = 0;

    $return = do $file;
    die "couldn't parse $file: $@" if $@;
    die "couldn't do $file: $!" unless defined $return;
    die "couldn't run $file" unless $return;
    $return;
} 
