GetOptions ( "B|before:42" => \(my $before = 2), ) or die "User-friendly message\n");