package Foo;
sub new {
  my ($class) = @_;
  $class = ref($class) || $class;
  return bless {}, $class;
}

sub test { print "Test" }

package main;
my $foo = Foo::new();
print $foo;
$foo->test();