#!/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";
}

##</code><code>##

[alex@foo dev]$ perl -w go.pl  -vt
mainDump arguments!!
Use of uninitialized value in string ne at /usr/lib/perl5/site_perl/5.8.0/Getopt/Auto.pm line 143.