GetOptions('in|i=s'  => \my $indir,
           'out|o=s' => \my $outfile,
           'log|l=s' => \my $logfile,
           'cp|c=s'  => \my $cp,
           'help|?'  => \my $help,
           man       => \my $man) or pod2usage(2);