getopt('pMN');
use Getopt::Std; getopt('pMN'); print "-p switch: $opt_p, -M switch: $opt_M, -N switch: $opt_N";