use strict;

package a;
sub new
{
  my ($class) = @_;
  return $class;
}

sub f { print "hallo\n"; }

1;
my $a = new a();
$a->f();