use vars qw($opt_d $opt_x $opt_h);
use Getopt::Std;
#
&getopts("a::d::h")||die "ERROR: No such option. -h for help\n";
&help if ($opt_h);

if ($opt_a){
    printf("not implemented.");
}elsif ($opt_d){
$base = shift(@ARGV);
$base2= shift(@ARGV);

  print $base;
  print $base2;
etc.
_______________________________________________