#!/usr/bin/perl

# use strict;
use warnings;

#  Test bed for Getopt::Auto

use Getopt::Auto;

our $VERSION = 'x';

print __PACKAGE__  . "Dump arguments!!\n";
while ((my ($k, $v) = each %options)) {
  print "$k $v\n";
}


sub edit {
  print "In Edit routine (@_).\n";
}