Range in Getopt

[Ammu]

Hi i am using Getopt to accept the debug parameters.But it sholud be within the range 1-4.Can anyone tell me how to include the ange in Getopt?

Getopt::Long::GetOptions(
   
   'd=i' => \$_debug)
or usage("Invalid commmand line options.");