package Foo::Bar;

sub somesub{
    return "somesub value from package Foo::Bar!";
}

1;

##</code><code>##

use TestFile;

package Common;

sub somesub {
    my $value = 'somesub value from Common package!';
    return $value;
}

package main;

print "Back in main package.\n";

my $rv1 = Common->somesub();   # Defined just above in this file
my $rv2 = Foo::Bar->somesub(); # Found in file TestFile.pm

print "Return Value 1: $rv1\nReturn Value 2: $rv2\n";