#!/usr/bin/perl
# File: Demo.pm

use strict;
use warnings;
package Demo;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
use Exporter;
our $VERSION=1.01;
our @ISA = qw(Exporter);
our @EXPORT    = qw();
our @EXPORT_OK = qw(example);
     
our $DEBUG =0;
test() if !caller; # runs test() if run as a "main program"

sub test { print "this is the test subroutine!\n"; return 1;}

sub example {return "this is an example"};

print "top level in Demo.pm\n";


1;