package Foo;

use strict;
use warnings;

sub new{
	print "This is new!\n";
}

sub neu{
	print "Das ist neu!\n";
}


package main;

use strict;
use warnings;

new Foo;
Foo->neu;