#!/usr/bin/perl -w 

use strict;

# load packages loaded in the file package1.pl
require 'package1.pl';
require 'package2.pl';

my $variable1=3;
print "variable1 in main:\t$variable1\n";

# access a variable from package1 with the 'package delimiter' (::)
print "variable1 in package1:\t$package1::variable1\n";
print "variable1 in package2:\t$package2::variable1\n";


# Use a function from the package with the 'package delimiter' (::)
package1::demo();
package2::demo();

exit;