my $opt = "0";
$result = GetOptions ("opt:s" => \$opt,);
$opt = 100 if ($opt eq "");