#!/usr/bin/perl
use Getopt::Std;
getopt('oDI');
print "\nOption o = $opt_o";