use strict;
use warnings;
use noname1;

package noname1;

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

package main;

my $obj = noname1->new ();

$obj->doit ();