use warnings;
use strict;

use Getopt::Long;

my $arg = -1;

{
    local $SIG{__WARN__} = sub {
        $_[0] =~ /^Option arg/ ? $arg = 0 : warn $_[0];
    };

    GetOptions(
        'arg=i' => \$arg
    );
}

print "$arg\n";