GetOptions ( "B|before:42" => \my $before, # An integer argument is optional and defaults to 42 when -B used without arg ) or die "User-friendly message\n");