use warnings;
use strict;
use Getopt::Long qw(:config no_auto_abbrev);

my %opt;
GetOptions(\%opt, qw(readonly)) or die;