#!/usr/bin/perl -w
######################################################################
# package.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

package Sample1;             # 1st package

sub func {                       # function Sample1::func
    print "sample1\n";
}

package Sample2;             # 2nd package

sub func {                       # function Sample2::func
    print "sample2\n";
}

                  # we are now in "Sample2"
func();           # implicitly calls Sample2::func();

Sample1::func();  # fully qualified notation
Sample2::func();  # fully qualified notation