package MyModule; 
 
use warnings; 
use strict; 
 
require Exporter; 
 
our $VERSION = 0.01; 
our @ISA = qw(Exporter); 
 
# List of variables and functions to export 
our @EXPORT = qw(a_function another_function $A_SCALAR @AN_ARRAY); 
 
our $A_SCALAR = 'some value'; 
our @AN_ARRAY = qw(a list of values); 
 
sub a_function { 
  print "This is a function\n"; 
} 
 
sub another_function { 
  print "This is another function\n"; 
} 
 
1;