#!/usr/bin/perl

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

my (@files,$opt_a,$opt_h);

#
GetOptions("-a" => \$opt_a,
             "-d"  => \@files,
             "-h"  => \$opt_h,);

help() if ($opt_h);

if ($opt_a){
  print "not implemented.";
}
elsif ($opt_d){
   print $_,"\n" for(@files);
}