#!/usr/bin/env perl

use strict;

# Only needed to find modules in the dist archive.
use FindBin qw($Bin);
use File::Spec;
use lib File::Spec->catfile($Bin,'..','lib');

# actual example code

use Config::Param;

my $p = Config::Param::get
		,info=> <<EOT
just a quick hack to demonstrate Config::Param

	$0 [parameters] whatever

We have this long info string just to show that Config::Param picks the tagline and usage info from it. This is not mandatory.
		 [ 'para', 0, 'p', 'A parameter.' ]
		,[ 'meter', 'I got value but no help text, neither short name.' ]

print "I could have done some work with '$p->{para}' and '$p->{meter}'.\n";