Select Code to Download

use 5.026000;
use warnings;
...
GetOptions (
    "B|before=i" => \my $before, # An integer argument is required
    ) or die "User-friendly message\n");

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

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