use strict;
use warnings;

package noname1;

sub new {
    return bless {};
}

1;

##</code><code>##

use strict;
use warnings;
use noname1;

package noname1;

sub doit {
    print "Hello world\n";
}

package main;

my $obj = noname1->new ();

$obj->doit ();

##</code><code>##

Hello world