use Benchmark;

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

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