use strict;
use warnings;

use Getopt::Std;

use vars qw($opt_n $opt_l);

getopts("n:l:");

print "Option -n: $opt_n \n";
print "Option -l: $opt_l \n";

__END__