#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

use vars qw($opt_d $opt_a $opt_h $argument);

#
GetOptions("-a" => \$opt_a,
              "-d"  => \$opt_d,
              "-s=s" => \$argument,
              "-h"  => \$opt_h,);

help() if ($opt_h);

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

    print $base;
    print $base2;
}

if(defined $argument){
   print $argument;
}