#file MyConstants.pm

use strict;
use warnings;
package MyConstants;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
use Exporter;
our $VERSION=0.1;
our @ISA = qw(Exporter);
our @EXPORT = qw();                  #default export 
our @EXPORT_OK = qw(VAR1 VAR2 VAR3); #by request export

our $VAR1 ="something";
our $VAR2 ="something_else";
our $VAR3 ="something_way_else";

1;