#!/usr/bin/perl

use strict;
use warnings;

#  Test bed for Getopt::Auto

use Getopt::Auto ( [
  "edit" => "open a file for editing",
  "export" => "write out the data as an ASCII file"
] );

our %options;

{
  print "Dump arguments!!\n";
  foreach ( keys %main::options ) {
    print "$_ : $main::options{$_}\n";
  }
}