use Getopt::Long; 
 
#Getting the command-line options 
my %options = (); 
GetOptions (\%options,'msm','des=s', 'a=s', 'd=s', 'r=i', 'v=s'); 
if($options(msm)){....}