#!/usr/bin/perl
use warnings;
use strict;

use Getopt::Std;
our $opt_d, %config;
getopt('d');