#!/usr/bin/perl

use strict;
use warnings;

package Test;

sub test{
    print __PACKAGE__,"\n";
}

package NochEinTest;

sub test{
    print __PACKAGE__,"\n";
}

package main;

print __PACKAGE__,"\n";
Test->test;
NochEinTest->test;