#!/usr/bin/perl -w 
use strict;  
use warnings; 
use Getopt::Long;
my %options=();
GetOptions (\%options, 'smm','dmm') or die("\nERROR:Invalid Option\n");

print "\nOPTION MSM:$options{msm}\n"; #always prints as one