use Benchmark;

sub new { bless \@_, $_[0] }

timethese(100_000, {
	bareword  => sub { eval q{ main->new } },
	quoted    => sub { eval q{ 'main'->new } },
	colons    => sub { eval q{ main::->new } },
});

##</code><code>##

use Benchmark;

sub new { bless \@_, $_[0] }

timethese(1_000_000, {
	bareword  => sub { main->new },
	quoted    => sub { 'main'->new },
	colons    => sub { main::->new },
});