System Functions Perl

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