#!/usr/bin/perl -w

use Getopt::Std;

getopts('d:p:');
our $opt_d;
our $opt_p;
print $opt_p, "\n";
print $opt_d, "\n";