use Getopt::Long;
my $_debug = 0;
GetOptions('d=i' => sub {
        $_debug = $_[1];
        ($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_debug)"
    } ) or exit 1;

warn "Debug Level is $_debug\n";