#!/usr/bin/perl

use strict;
use Getopt::Long qw(:config no_auto_abbrev ); 
use Pod::Usage;
my %opt=(id=>"corpora");

GetOptions( \%opt, "help|h|?" , "man",
  "src|s=s@"   ,
  "key|k=s@"   ,
  "id=s"     ,
  ##  "<>"      => sub {push @inputnames, $_[0]},
  ) or die "Specify the --help (or -?) option for usage information.\n";


pod2usage(2)                               if $opt{help};
pod2usage(-exitstatus => 0, -verbose => 2) if $opt{man};



use Data::Dumper;
print Dumper(\%opt);

__END__

=head1 NAME

jjgwb - 

=head1 SYNOPSIS

 jjgwb [option] [file]

=head1 DESCRIPTION

=head2 Options

=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

perl(1).

=cut