#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

package Sample1;             # 1. Package 

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

package Sample2;             # 2. Package

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

                  # Wir befinden uns in "Sample2"
func();           # Ruft implizit Sample2::func();

Sample1::func();  # Fully-Qualified-Notation
Sample2::func();  # Fully-Qualified-Notation