my $e = Example::Module->new(@list);

##</code><code>##

my $e = Example::Module(@list);

##</code><code>##

package Example::Module;

...

sub Example::Module {
  return "Example::Module" unless @_;
  Example::Module::->new(@_); # extra colons are necessary
}

...