#!/usr/bin/perl
    use Getopt::Long;
    use Data::Dumper;
    use strict;
    $Data::Dumper::Sortkeys=1;
    $Data::Dumper::Useqq=1;

    my %opts;
    my@optns=(
             'config=s',
    );

#    utf8::upgrade $_ for @ARGV;
    utf8::upgrade ($ARGV[0]);
    
    print Dumper \@ARGV;
    print "\n$_: ".((utf8::is_utf8 $_)?1:0) for @ARGV;
    print "\n\n";
    GetOptions( \%opts, @optns, );
    
    print Dumper \%opts,\@optns;